F/l  f/1 


AD-A080  MB 


UNCLASSIFIED 


PATTERN  ANALYSIS  A NO  RECOONITION  CORF  ROME  N  Y 
MULT ICS  REMOTE  DATA  ENTRY  SYSTEM.  VOLUME  I.<U> 
OCT  79  0  BIRNMUN'  J  J  CUR  AX#  J  0  OYAR 


FBOMt-77-C-om 
VOL-I  ML 


FILEJBPX 


rjrtfraiifrn. 


RADC-TR.79-265,  Vol  I  (of  two) 


MULTICS  REMOTE  DATA 
ENTRY  SYSTEM 

AnolyRfc  A  Recognition  Corporation 


David  Blrnbaum 
John  J.  Cupak,  Jr 
Janet  D.  Dyar 
Richard  Jackson 


AIR  oaviLonwanr  enrna 

re«  Syttonw  Command 
>  Air  Fww  Bom,  Now  York  13441 


This  report, has  *oeen  reviewed  by  the  RADC  Public  Affairs  Office  (PA) 
and  Is  releasable  to  the  National  Technical  Inforaatlon  Service  (MTIS). 

At  NT IS  it  will  be  releasable  to  the  general  public.  Including  foreign 
nations. 

RADC-TR-79-265,  Vol  I  (of  two)  has  been  reviewed  and  Is  approved  for 
publication. 


APPROVED: 


APPROVED: 


WENDALL  C.  BAUMAN,  Col,  USAF 
Chief,  Information  Sciences  Division 


FOR  THE  COMMANDER: 

JOHN  P.  HUSS 

Acting  Chief,  Plans  Office 


If  your  address  hss 
mailing  list,  or  if 
tlon,  please  notify 
us  In  maintaining  a 

Do  not  return  this  copy.  Retain  or  destroy. 


changed  or  if  you  wish  to  be  removed  from  the  ypf 
the  addressee  Is  no  longer  employed  by  your  organise- 
RADC  (ISCP),  Griff Isa  APB  NY  13441.  This  will  assist 
current  selling  Hat. 


■Hi 


UNCLASSIFIED 


SECURITY  CLASSIFICATION  CP  This  page  (Whan  Data  Entered ') 


READ  INSTRUCTIONS 


l^fj  REPORT  DOCUMENTATION  PAGE 


BEFORE  COMPLETING  FORM 

IlPlENT’S  CATALOG  NUMBER 


^Tgovt  accession  no. 


Final 


MULTICS  REMOTE  DATA  ENTRY  SYSTEM 


IING  ORG.  REPORT  NUMBER 


P  .  ' - 

David  ^Birnbaum 
John  J .1  Cupak 


Janet  D 
Richard 


1  PERFORMING  ORGANIZATION  NAME  AND  AOORESS 

Pattern  Analysis  &  Recognition  Cor] 
228  Liberty  Plaza' 

Rome  NY  13440  ‘ 


AREA  d  WO  RK  UNIT  NUMBERS 


62702F 

5597I324 


t.  CONTROLLING  OFFICE  NAME  ANO  ADDRESS 

Rome  Air  Development  Center  (ISCP) 
Griffiss  AFB  NY  13441 


15  SECURITY  CLASS  (of  this  report ) 

UNCLASSIFIED 


4.  MONITORING  AGENCY  name  d  AOORESS (il  different  from  Controlling  Office) 


15«.  DECLASSIFICATION  DOWNGRADING 
SCHEDULE 


16.  DISTRIBUTION  STATEMENT  (of  thia  Report) 


Approved  for  public  release;  distribution  unlimited 


17.  DISTRIBUTION  STATEMENT  (of  the  abstract  entered  in  Block  20,  It  different  from  Report) 


18  SUPPLEMENTARY  NOTES 


ineer:  Patricia  J.  Baskinger  (ISCP) 


RADC  Project  Ei 


KEY  WORDS  (Continue  on  reverse  aide  if  neceaaary  and  identify  by  block  number) 


Pattern  Recognition 
Pattern  Analysis 
Classif ication 
Clustering 


OLPARS 
Data  Entry 


0  ABSTRACT  ( Continue  on  reverse  aide  It  neceaaary  and  identify  by  block  number) 

This  report  contains  the  user's  manuals  and  software  documentation  for  the  Re¬ 
mote  Data  Entry  System  which  is  the  front-end  to  the  MULTICS  Pattern  Recognition 
Facility  and  the  Cluster  Analysis  package  which  was  added  to  MULTICS  OLPARS. 

The  Remote  Data  Entry  System  was  designed  to  allow  users  of  the  MULTICS  Pattern 
Recognition  Facility  the  ability  to  input  their  data  over  the  ARPANET  from  a 
Tektronix  remote  storage  device.  Once  the  data  is  input  into  the  MULTICS  Sys¬ 
tem,  routines  are  provided  so  that  the  user  can  easily  restructure  or  cluster 


his  database  to  perform  different  classification  experiments 


.SSIFIED 


SECURITY  CLASSIFICATION  OF  THIS  PAGE  en  Dmtm  Enlertd) 


FINAL  REPORT 


REMOTE  DATA  ENTRY 


Preface 

This  is  a  Final  Report  by  Pattern  Analysis  and  Recognition 
Corporation,  228  Liberty  Plaza,  Rome,  New  York,  and  it  represents  work 
performed  under  Contract  F3C602-77-C-0174 ,  Job  Order  Number  55971234 
for  the  Rome  Air  Development  Center,  Griffiss  Air  Force  Base,  New 
York , 


Mrs,  Patricia  J.  Baskinger  was  the  RADC  Project  Engineer, 


Accession  For 


z 


NILS  GLUAI 
DDC  TAB 
Unannounced 
Justification 


w 


FINAL  EFPGRT 


PEN.CTL'  LATA  ETiTi  'i 
TAFLF  GF  CONTENTS 


PAuE 


CCi.TENT 


a  Preface 

ii  TABLE  OF  CONTENTS 

1-1  INTECEUCTICS 


2-1 

FDE 

USEE'S 

LA  tv  UAL 

2-1 

2. 1 

General  Eenarks 

2-3 

2.2 

ASCI I  Gat a  file  format 

2-11 

2.3 

rer;cte_to_:.;ultics ,  rtcrr 

2-17 

2. 4 

-ultics_to_rencte,  .-.tor 

o  ^  n 

^  J 

2.5 

wake tree 

2-27 

2 .  C 

duT,:;  tree 

2-31 

2.7 

unpack_tree ,  unt 

2-33 

2.8 

rack_tree,  pt 

3-1 

CTS 

USEE  '  S 

MANUAL 

3-1 

3.1 

Cverview 

3-6 

3.2 

Lef init ions 

3  - 1 C 

3.3 

CTS  Initiation 

3-19 

3.4 

Keyword  Specification 

3-31 

3.6 

Change  Coor.ar.d 

3-34 

3.7 

Celete  Cowcano 

3-3G 

3.C 

Insert  Cor; wane 

3  —  33 

3.9 

"ovr  Command 

i  1 


FINAL  REPORT 


REMOTE  DATA  ENTRY 
TAELE  OF  CONTENTS 


PAGE 

CONTENT 

3-42 

3.10 

Extract  Command 

3-44 

3.11 

Command  Summary 

3-47 

3.12 

Modes  of  Operation 

4-1 

PDE  FUNCTIONAL  INSCRIPTION 

4-1 

4.1 

I/O  Module  Introduction 

4-4 

4.2 

rerr.ote_to_multics,  rtorr. 

4-6 

4.3 

multics_to_r emote,  rr.tor 

4-8 

4.4 

r  emote_data_attach 

4-11 

4.5 

open_device 

4-13 

4.6 

terrr.inal_modes 

15 

4.7 

device_control 

4-17 

4.8 

disk_seek 

4-19 

4.9 

r  ead_f ir st_r ecor d 

4-21 

4.10 

r ead_n ex t_r ecord 

4-23 

4.11 

wr ite_f irst_recorJ 

4-25 

4.12 

wr ite_next_r ecord 

4-27 

4.13 

close_device 

4-29 

4.14 

detach 

4-30 

4.15 

maketree 

4-32 

4.16 

tr eeiput 

4-35 

4.17 

dump  tree 

4-37 

4.18 

treeoput 

4-39 

4.19 

any 

4-41 

4.2G 

delay 

iii 


FIUAL  REPORT  REMOTE  DATA  ENTRY 

TABLE  OF  CONTENTS 


PAGE 

CONTENT 

4-42 

4.23 

4-46 

4.21 

4-46 

4.22 

4-5U 

4.23 

4-52 

4.24 

4-54 

4.25 

4-56 

4.26 

4-52 

4.27 

4-63 

4.28 

4-62 

4.29 

4-54 

4.30 

4-66 

4.31 

4-68 

4.  32 

4-78 

4.33 

4-72 

4.34 

4-75 

4.35 

4-76 

4.36 

4-78 

4.37 

4-79 

4.38 

4-31 

4.39 

4-83 

4. 40 

4-84 

4.41 

4-35 

4.42 

4-36 

4.43 

4-SC 

4.44 

floating  point  general  remarks 

convert 

CDC_tO_IBM 

CLC_to_KULTICS 

CDC_tO_PDP 

IBV_to_CDC 

IBM_tO_KULTICS 

IBM_tO_PDP 

MULTI C  S_t  0_CDC 

MULTICS_tO_IBM 

MU  LT'I  C  S_t  0_  PDF 

PDP_tO_CDC 

PDf_tO_IBM 

?DP_tO_MULTICS 

add 

add_one 

subtract 

sub_one 

shif t_lef t 

shif  t_r  ight 

o n e s— c omp 1 em e n t 

two  s_conp 1 em  e  n  t 

round 

normalize 

base2_to_basel6 

iv 


t 


FINAL  REPORT 


REMOTE  DATA  ENTRY 
TAELE  OF  CONTENTS 


PAGE 

CONTENT 

3-40 

3.  IP 

Extract  Command 

3-44 

3.11 

Command  Summary 

3-47 

3.  12 

Modes  of  Operation 

4-1 

PDE  FUNCTIONAL  DESCRIPTION 

4-1 

4.1 

I/O  Module  Introduc 

4-4 

4.2 

remote_to_rrult  ics. 

4-6 

4.3 

multics_to_r emote,  i 

4-8 

4.4 

remote_data_attach 

4-11 

4.5 

open_device 

4-13 

4.6 

terrr.inal_modes 

15 

4.7 

device_contr ol 

4-17 

4.8 

disk_seek 

4-19 

4.9 

r ead_f irst_r ecord 

4-21 

4.10 

read_next_r ecord 

4-23 

4.11 

write_first_r ecord 

4-25 

4.12 

wr ite_next_r ecord 

4-27 

4.13 

close^device 

4-29 

4.14 

detach 

4-30 

4.15 

maketree 

4-32 

4.16 

tr eeiput 

4-35 

4.17 

dump tree 

4-37 

4.16 

treeoput 

4-39 

4.19 

any 

4-41 

4.20 

delay 

ill 


FINAL  ."EPGRT 


REMOTE  CATA  ENTRY 
TABLE  OF  CONTENTS 


PAGE 

CONT 

4-42 

4.20 

4-46 

4.21 

4-48 

4,22 

4-50 

4.23 

4-52 

4.24 

4-54 

4.25 

4-56 

4.26 

4-58 

4.27 

4-60 

4.28 

4-62 

4.29 

4-64 

4. 32 

4-66 

4.  31 

4-68 

4.32 

4-70 

4.33 

4-72 

4.34 

4-75 

4.35 

4-76 

4.36 

4-78 

4.37 

4-79 

4.38 

4-31 

4.39 

4-63 

4.4C 

4-84 

4.41 

4-35 

4.42 

4-36 

4.43 

4-88 

4.44 

floating  point  general 
convert 

CDC_to _ IBM 

CLC_tO_KULTICS 

CDC_t o_PLP 

IBV_to_CDC 

IBM_tO_KCJLTICS 

IBH_tO_PDP 

MU  LT I C  S_t 0_CDC 

MU  L  T I C S_ t o_ IBM 

MULTICS_tO_PDF 

PDP_tO_CDC 

PDP_tO_IEM 

?DP_tO_MULTICS 

add 

add_one 

subtract 

sub_one 

shift_left 

shift_r  ight 

ones_cornpleir.ent 

two  s_c  or.pl  erne  nt 

round 

normalize 

base2  to  basel6 


remarks 


iv 


FINAL  REPORT 


REMOTE  DATA  ENTRY 
TABLE  OF  CONTENTS 


PAGE ■  CONTENT 


5-1 

CTS  Functional  Description 

5-1 

5.1 

CTS  structure 

5-5 

5.2 

cts 

5-1E 

5.3 

cts_process_args 

5-13 

5.4 

cts_process_keywor ds 

5-16 

5.5 

c  t  s_p  r  o  c  e  s  s_c  omma  nd  s 

5-22 

5 . 6 

cts_process_program 

5-25 

5.7 

cha_nge 

5-30 

5.8 

in_ser t 

5-33 

5.9 

de_lete 

5-36 

5.16 

mo_ve 

5-39 

5.11 

ext_ract 

5-42 

5.12 

bool_term 

5-45 

5.13 

bool_fac 

5-48 

5.14 

bool_pr i 

5-54 

5.15 

get_char 

5-56 

5.16 

advance 

5-65 

5.17 

error 

5-70 

5. 1C 

cts_query_user 

A— 1 

Appendix 

A 

-  Table  of  Figures 

E— 1 

Appendix 

B 

-  References 

I 


EVALUATION 


This  report  contains  the  user's  manual  and  software  documentation  for 
the  MULTICS  Remote  Data  Entry  System  (RDE)  developed  under  Contract  F30602- 
77-C-01 74.  The  RDE  System  was  developed  to  allow  the  users  of  the  MULTICS 
Pattern  Recognition  Facility  the  ability  to  enter  data  remotely  from  a 
Tektronix  4921  floppy  disk  or  a  4923  tape  cassette  which  are  attached  to 
their  4014  terminal. 


The  MULTICS  Pattern  Recognition  Facility,  which  includes  the  MULTICS 
versions  of  WAVES,  a  waveform  processing  system,  and  OLPARS  (On-Line  Pattern 
Analysis  and  Recognition  System),  is  available  to  remote  users  via  access 
over  the  ARPANET. 

Once  the  data  is  in  the  MULTICS  System,  programs  are  provided  which 
give  the  user  the  ability  to  restructure  the  data  set  on-line  or  to  perform 
clustering  analysis  on  the  data  set.  Volume  I  of  this  report  contains  the 
documentation  for  RDE,  and  Volume  II  contains  the  user's  manual  for  the 
clustering  analysis  additions  to  MULTICS  OLPARS.  This  system  is  a  major 
enhancement  to  the  MULTICS  Pattern  Recognition  Facility  which  provides  the 
Air  Force  with  a  powerful  capability  for  solving  a  wide  range  of  target 
identification  problems  in  the  areas  of  command,  control,  communications  and 
intelligence. 


PATRICIA  J. JASKINGER 
Project  Engineer 
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SECTION  1  -  INTRODUCTION 


1  INTRODUCTION 

OLPARS  (On  Line  Pattern  Analysis  and  Recogntion  System)  was 
conceived  and  implemented  by  RADC  and  PAR  corporation  as  an 
interactive  pattern  analysis  and  recognition  tool.  Implementation  of 
OLPARS  on  the  Honeywell  Information  Systems  (HIS)  6180  Computer 
facility  at  RADC  (MOOS  -  MULTICS  OLPARS  Operating  System) ,  has  made 
the  system  available  through  the  ARPANET.  Consequentially,  users 
throughout  the  country  have  used  OLPARS  in  the  solution  of  their 
pattern  recognition  problems. 

The  Remote  data  Entry  ( RDE)  system  was  designed  to  permit  persons 
using  OLPARS  through  the  ARPANET  to  transmit  and  receive  vector  and 
waveform  data  to  and  from  a  remote  storage  device.  Waveform  data  to 
be  analyzed  using  WAVES  (Long  Waveform  Analysis  System)  may  also  be 
transmitted  and  received  using  the  RDE  system. 

This  report  contains  a  description  of  the  RDE  system,  its  use, 
and  the  programs  it  contains. 

The  RDE  user's  manual  is  described  in  section  2  and  gives 
complete  instructions  on  how  to  send  data  back  and  forth  to  MOOS  and 
WAVES •  The  Command  Translator  System  (CTS)  is  described  in  Section  3, 
CTS  is  designed  to  enable  a  user  to  edit  his  data  once  it  is  in  the 
MULTICS  system.  Sections  4  and  5  give  functional  descriptions  of  the 
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RDE  and  CTS  systems  and  are  designed  for  software  maintenance 
personnel.  Section  4  also  contains  a  description  of  floating  point 
conversion  routines  that  were  implemented  under  this  effort. 
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SECTION  2  -  RDE  USER'S  MANUAL 

2  RDE  USER'S  MANUAL 


2.1  General  Remarks 


This  section  contains  descriptions  of  all  RDE  user  functions.  It 
is  designed  to  provide  a  novice  user  of  the  system  with  sufficient 
information  to  allow  for  easy  use  of  the  system  capabilities. 
Description  of  the  computions  performed  by  each  system  program  is 
documented  in  section  4, 


\ 


The  standard  terminal  from  which  RDE  commands  are  executed  is  the 
Tektronix  4014-1  storage  tube  display.  Attached  to  the  4014-1  are  a 
4921  single  disk  drive,  a  4922  double  disk  drive,  or  a  4923  tape 
cassette  device.  The  4923  device  can  control  the  4014-1  screen  only  if 
there  is  an  attached  4921/4922  device.  A  hard-copy  unit  may  also  be 
attached  to  the  4014-1  terminal,  but  is  not  essential  for  the 
operation  of  the  RDE  system. 

User  function  calls  are  entered  through  the  terminal  keyboard, 
and  consist  of  simple  program  names  followed  by  any  required  or 
optional  parameters.  Within  the  system  programs,  dialogue  concerning 

1 

additional  information  required  for  program  operation  is  handled  by 

1 

standard  terminal  input/output  operations  as  specified  in  this 


FINAL  REPORT 


REMOTE  DATA  ENTRY 
SECTION  2  -  RLE  USER'S  MANUAL 


In  the  MULTICS  system,  program-calling  arguments  are  specified  as 
"-arg"  or  ”-arg  parameter".  The  first  form  is  used  to  set  or  reset 
specific  program  switches  or  perform  specific  action.  The  second  form 
is  generally  used  to  specify  a  file,  where  the  "-arg"  identifies  the 
file  type. 

For  example,  the  program  dumptree  may  be  called  as: 

dumptree  -in  treepath  -out  datapath 

This  convention  was  used  in  the  RDE  system.  Missing  arguments  are 
solicited  from  the  user.  The  possible  arguments  are  described  in  the 
individual  program  descriptions. 

To  create  an  OLPARS  tree  from  the  data  on  a  remote  device: 

o  The  user  calls  the  program  "r emote— to_multics"  (rtom). 

o  The  program  "rtom"  invokes  the  program  "remote_data__"  to 

control  I/O. 

o  Data  is  transmitted  to  an  ASCII  data  file  in  the  users' 

default  working  directory  (the  directory  he  logs  on  under), 

o  The  user  may  elect  to  edit  the  data  fiLe  and/or  create 
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subfiles  by  using  the  program  "Command  _Translator_System" 
(CTS ) . 

o  The  user  calls  the  program  "maketree"  to  create  an 

intermediate  file  in  the  users'  process  (temporary) 
directory.  ^ 

o  The  maketree  program  calls  the  program  "treeiput"  to  create 
a  MOOS  tree  file  in  the  users'  process  directory. 

The  creation  of  an  OLPARS  tree  from  data  stored  on  a  remote 
device  is  shown  in  Figure  1, 


2-3 


..  r 


FINAL  REPORT 


REMOTE  DATA  ENTRY 
SECTION  2  -  RDE  USER'S  MANUAL 
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Figure  1  Remote  Data  File  to  MOOS  Tree 
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To  transfer  an  OLPARS  tree  to  a  remote  device: 

o  The  user  calls  the  program  "dumptree", 

o  The  program  "dumptree"  calls  the  program  "treeoput"  to 
convert  a  MOOS  treefile  to  an  intermediate  file  in  the 
users'  process  directory. 

o  The  program  "dumptree"  then  converts  the  intermediate  file 
to  an  ASCII  datafile  in  the  users'  default  working 
directory. 

o  The  user  may  elect  to  edit  the  data  file  using  the  program 
"CTS" . 

o  The  user  calls  the  program  "multics_to_remote"  (mtor) . 

o  The  program  "mtor"  invokes  the  pcogram  "remote_data_"  to 

control  I/O. 

o  The  data  is  transferred  from  the  ASCII  data  file  to  the 

remote  device. 

The  creation  of  a  remote  device  data  file  from  a  MOOS  tree  is 
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shown  in  Figure  2, 

To  create  a  WAVES  tree  the  user  first  calls  rtom  to  create  the 
ASCII  file  in  his  working  directory  and  then  calls  the  WAVES  command 
unpack_tree.  This  command  then  creates  the  WAVES  tree.  To  transfer  a 
WAVES  tree  to  a  remote  device  the  WAVES  command  pack_tree  is  used 
followed  by  the  RDE  command  mtor.  CTS  may  also  be  used  to  edit  the 
intermediate  file.  Description  of  the  WAVES  commands  can  be  found  in 
Sections  2,7  and  2.8  and  in  the  Final  Technical  Report  to  the  MULTICS 
Long  Waveform  Analysis  System,  RADC-TR-78-218. 
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Program  Datafile 
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Figure  2  MOOS  Tree  to  Remote  Data  File 
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2,2  ASCII  data  file  format 

Figure  3  shows  the  format  of  the  ASCII  data  file.  The  file 
consists  of  a  series  of  vectors,  separated  by  semi-colons  The 

last  vector  is  followed  by  a  slash-star  terminator  ("/*"). 

Each  vector  consists  of  an  optional  class-name  field,  any  number 
of  optional  keyword  fields,  an  optional  class-id  field,  and  a  fixed 
number  of  data  fields.  Each  field  is  delimited  by  a  blank,  a  comma 
or  both  characters.  All  vectors  in  the  same  file  consist  of 
the  same  number  of  fields,  known  as  the  vector  dimension. 

Keywords,  which  are  optional  and  do  not  appear  in  the  MOOS  tree 
file,  are  used  to  describe  the  class  vectors.  They  usually  represent 
human-readable  attributes  such  as  color,  size,  date,  time,  data 
source,  etc. 

The  id  numbers  serve  to  identify  each  vector  uniquely.  If 
missing,  they  are  generated  by  the  program  maketree  for  use  by 
treeiput. 

Class  names,  which  may  be  only  4  characters  in  the  MOOS  file,  can 
be  inserted  by  the  CTS  program  if  not  present  in  the  ASCII  file.  Any 
attempt  to  use  the  ASCII  data  file  without  the  class  names  by  maketree 
would  result  in  errors. 
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An  example  of  two  vectors  which  contain  all  the  fields  is: 

class 1, car , 1 , 3. 7 , 4. 9;class2 , tank , 2 , 3. 2,5. 7;/* 

An  example  of  two  vectors  containing  only  data  is: 

3.7,4.9;3.2,5.7;/* 

The  ASCII  data  is  written  on  the  remote  device  storage  media  in 
128-character  blocks.  The  last  data  block  must  be  padded  with  stars 
("*")  if  it  contains  less  than  128  characters,  including  the 
"slash-star"  terminator  ("/*")# 

NOTE:  Data  is  written  to  the  4923  tape  cassette  device  in  128 
character  blocks  containing  126  data  characters,  a  "stop  read"  control 
character  (DC3 ) ,  and  a  "dispensable"  character  (LF) .  The  last  block 
indicating  end  of  file  consists  of  126  stars  ("*")  ,  a  "stop  device" 
character  (DC4) ,  and  a  "dispensable"  character  (LF) .  The  device 
control  characters  (DC3  and  DC4)  permit  the  rtom  program  to  read  one 
block  at  a  time  from  the  device.  The  LF  character  signals  end  of 
transmission  to  the  terminal. 
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Optional  class  name 
Optional  Keyword (s) 
Optional  Class  Id 
Data, Data, . . . ,Data; 


Pad  and  EOF  Characters 
Figure  3  ASCII  data  format 
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2,3  remote__to— multics ,  rtora 

Function;  rtom  (device)  (-debug) 

Parameters ; 

device  name  of  attached  remote  device 
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If  the  remote  device  is  incorrect  or  missing,  the  following 

request  will  be  displayed: 

(2)  Enter  remote  device  type:  xxxxLF 

Type  in  the  remote  device  type  followed  by  a  line-feed  (LF) . 

After  the  information  has  been  accepted,  the  system  will 
display  the  following  message: 

(3)  Enter  output  data  file  name:  nameLF 

Type  in  the  desired  output  file  name  followed  by  a  LF, 

If  the  output  data  file  exists  in  the  user's  default  working 
directory,  the  following  message  is  displayed: 

(4)  Data  file  already  exists.  Do  you  wish  to  overwrite  it?  replyLF 

Type  in  "yes"  or  "no",  followed  by  a  LF.  A  reply  of  "no" 
will  cause  the  following  question  to  be  asked: 

(5)  Do  you  wish  to  continue?  replyLF 


FINAL  REPORT 


REMOTE  DATA  ENTRY 
SECTION  2  -  RD£  USER'S  MANUAL 

Type  in  "yes"  or  "no",  followed  by  a  LF,  A  reply  of  "no" 
terminates  the  program,  A  reply  of  "yes"  displays  the  following 
message  before  returning  to  question  (3), 

Choose  another  file  name. 

If  the  remote  device  is  "4922",  the  following  question  is  asked: 

(6)  Enter  disk  number:  nLF 

Type  a  "1"  or  a  "2",  followed  by  a  LF. 

(7)  Do  you  want  the  screen  on  during  data  transmission?  replyLF 

Type  "yes"  or  "no",  followed  by  a  LF.  The  user  should  be 
aware  that  the  screen  can  display  only  644d  characters  (64  lines 
times  132  chars  per  line)  before  overwriting  the  displayed 
information.  This  represents  approximately  66  sectors,  or  2 
tracks  of  data. 

If  the  remote  device  is  "4921"  or  "4922",  questions  ( B )  and  (9) 
are  displayed. 

(8)  Enter  starting  track  number:  nnLF 
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Type  a  two-digit  number  between  00  and  63,  followed  by  a  LF, 

(9)  Enter  starting  sector  number:  nnLF 

Type  a  two-digit  number  between  00  and  31,  followed  by  a  LF, 

If  the  remote  device  is  "4923",  question  (10)  is  displayed, 

(10)  Do  you  wish  instructions?  r eplyLF 

Type  "yes"  or  "no",  followed  by  a  LF, 

After  the  instructions  are  displayed,  the  user  is  asked  if 
he  is  ready  to  continue.  Type  a  "yes",  followed  by  a  LF,  The 
program  will  then  display  the  following  message,  and  wait  for  20 
seconds  for  the  user  to  comply  before  initiating  data  transfer: 

Depress  the  RUN  button  once. 


If  the  remote  device  is  "tape",  questions  (11)  through  (17)  will 
be  asked. 
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Type  6-digit  tape  reel  number  with  leading  zeroes,  followed 
by  a  LF, 

(12)  Enter  optional  console  message:  messageLF 

Type  LF  for  no  message,  or  up  to  64  characters  (including 
blanks)  followed  by  a  LF.  A  message  greater  than  64  characters 
will  be  truncated. 

(13)  Enter  file  name:  nameLF 

Enter  up  to  17  characters  followed  by  a  LF.  A  name  field  greater 
than  17  characters  will  be  truncated,  and  a  message  informing  the  user 
will  be  printed. 

At  this  point,  all  required  information  has  been  entered  or 
generated.  If  the  user  wishes  to  change  fields,  enter  new  fields,  or 
delete  any  fields  in  the  tape  attach  description,  the  program  will 
permit  editing.  The  following  question  is  asked  automatically: 

(14)  Do  you  wish  to  change  any  fields?  replyLF 

Type  "yes"  followed  by  a  LF  if  you  wish  to  edit  any  of  the 
fields  in  the  attach  description. 

If  the  user  types  "yes"  in  response  to  question  (14)  ,  the  program 
continues  with  questions  (15)  through  (17). 


2-15 


FINAL  REPORT 


REMOTE  DATA  ENTRY 
SECTION  2  -  RDE  USER'S  MANUAL 


(15)  Enter  literal  to  be  changed:  literalLF 

Type  in  any  string  to  be  changed,  followed  by  a  LF  (the 
literal  string  may  contain  blanks), 

(16)  Enter  literal  to  be  changed  to:  literalLF 

Type  in  replacement  literal  (a  null  string  or  a  literal  with 
imbedded  blanks  is  permissible) ,  followed  by  a  LF, 

The  edited  attach  description  is  now  displayed. 

(17)  Do  you  wish  to  continue  editing?  replyLF 

Type  "yes"  followed  by  a  LF  to  continue.  The  program  will 
then  display  questions  (15)  through  (17)  again.  Type  "no"  to 
terminate  editing. 

After  completion  of  the  data  transfer,  the  program  will  display 
the  number  of  128-character  records  read.  If  the  remote  device  was 
"tape",  the  program  will  display  the  number  of  2560-character  blocks 
(20  128-character  records)  read. 
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2.4  multics  to  remote,  mtor 


Function:  mtor  (device)  (-debug) 


Parameters: 

device  name  of  attached  remote  device 

-debug,  -db  test  switch 

Description: 

The  user  function  mtor  transfers  an  ASCII  data  file  from  a 
MULTICS  file  in  the  jsers'  default  working  directory  to  a  remote 
device. 

The  test  switch  "-debug"  or  "-db"  is  used  by  maintenance 
personnel  to  trace  the  program  execution  and  data  values.  It  should 
not  be  specified  by  the  normal  user. 

User  Interaction: 

If  the  remote  device  is  incorrectly  specified  on  the  call,  the 
following  error  message  is  displayed: 
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(1)  Remote  device  must  be  "4921",  "4922",  "4923",  or  "tape". 

If  the  remote  device  is  incorrect  or  missing,  the  following 
request  will  be  displayed: 

(2)  Enter  remote  device  type:  xxxxLF 

Type  in  the  remote  device  type  followed  by  a  line-feed  (LF) , 

(3)  Enter  input  data  file  name:  nameLF 

Type  in  the  desired  input  file  name  followed  by  a  LF. 

If  the  data  file  does  not  exist,  the  next  two  responses  are 
displayed : 

(4)  Data  file  does  not  exist, 

(5)  Do  you  wish  to  try  another  file?  replyLF 

Type  in  "yes"  or  "no",  followed  by  a  LF,  A  reply  of  "no" 
terminates  the  program.  A  reply  of  "yes"  displays  the  following 
message  before  returning  to  question  (3) . 

Choose  another  file  name. 
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If  the  remote  device  is  "4922",  the  following  question  is  asked: 

(6)  Enter  disk  number:  nLF 

Type  a  "1"  or  a  "2",  followed  by  a  LF. 

(7)  Do  you  want  the  screen  on  during  data  transmission?  replyLF 

Type  "yes"  or  "no",  followed  by  a  LF.  Tne  user  should  be 
aware  that  the  screen  can  display  only  8448  characters  (64  lines 
times  132  chars  per  line)  before  overwriting  the  displayed 
information.  This  represents  approximately  66  sectors,  or  2 
tracks  of  data. 

If  the  remote  device  is  "4921"  or  "4922",  questions  (8)  and  (9) 
are  displayed. 

(8)  Enter  starting  track  number:  nnLF 

Type  a  two-digit  number  between  00  and  63,  followed  by  a  LF. 

(9)  Enter  starting  sector  number:  nnLF 

Type  a  two-digit  number  between  00  and  31,  followed  by  a  LF. 
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If  the  remote  device  is  "4923",  question  (10)  is  displayed. 

(10)  Do  you  wish  instructions?  teplyLF 

Type  "yes"  or  "no",  followed  by  a  LF, 

After  the  instructions  are  displayed,  the  user  is  asked  if  he  is 
ready  to  continue.  Type  a  "yes",  followed  by  a  LF.  The  program  will 
then  display  the  following  message,  and  wait  for  20  seconds  for  the 
user  to  comply  before  initiating  data  transfer: 

Depress  fcRITE  and  RUN  buttons. 

The  user  must  follow  the  instruction  within  20  seconds,  or  the 
device  will  not  be  able  to  accept  the  data  transmitted  by  the  program. 
In  such  case,  the  program  should  be  allowed  to  terminate  normally, 
then  re-executed. 

If  the  remote  device  is  "tape",  questions  (11)  through  (17)  will 
be  asked. 

(11)  Enter  volume  id:  WVVVVLF 

Type  6-digit  tape  reel  number  with  leading  zeroes,  followed 
by  a  LF, 
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(12)  Enter  optional  console  message:  messageLF 


Type  LF  for  no  message,  or  up  to  64  characters  (including 


blanks)  followed  by  a  LF,  A  message  greater  than  64  characters 


will  be  truncated. 


(13)  Enter  file  name:  nameLF 


Type  up  to  17  characters  followed  by  a  LF.  A  name  greater 


than  17  characters  will  be  truncated. 


At  this  point,  all  required  information  has  been  entered.  If  the 


user  wishes  to  correct  misspelled  fields,  enter  new  fields,  or  delete 


any  fields  in  the  attach  description,  the  program  will  permit  editing. 
The  following  question  is  asked  automatically: 


(14)  Do  you  wish  to  change  any  fields?  replyLF 


Type  "yes"  followed  by  a  LF  if  you  wish  to  edit  any  of  the 


fields  in  the  attach  description. 


If  the  user  types  "yes"  in  response  to  question  (14)  ,  the  program 
continues  with  questions  (15)  through  (17) . 


(15)  Enter  literal  to  be  changed:  literalLF 


Type  in  any  string  to  be  changed,  followed  by  a  LF  (the 


i 


I 
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literal  string  may  contain  blanks). 

(16)  Enter  literal  to  be  changed  to:  literalLF 

Type  in  replacement  literal  (a  null  string  or  a  literal  with 
imbedded  blanks  is  permissible) ,  followed  by  a  LF, 

The  edited  attach  description  is  now  displayed. 

(17)  Do  you  wish  too  continue?  replyLF 

Type  "yes"  followed  by  a  LF  to  continue.  The  program  will 
then  display  questions  (15)  through  (17)  again.  Type  "no"  to 
terminate  editing. 

After  completion  of  the  data  transfer,  the  program  will 
display  the  number  of  128-character  records  written.  If  the 
remote  device  was  "tape",  the  program  will  display  the  number  of 
2560-character  blocks  (20  128-character  records)  written. 
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2,5  maketree 

Function ;  maketree  (-control_arguments) 

Control  arguments: 

—in  path  input  ASCII  data  file  path  name 

-out  path  output  MOOS  tree  name 

-debug,  -db  test  switch 

Functional  Description: 

This  program  reads  the  named  ASCII  input  data  file  from  the 
user’s  default  working  directory,  writes  an  intermediate  data  file 
(treedata)  in  the  user's  process  directory,  and  then  calls  the  program 
treeiput  to  convert  the  intermediate  file  to  MOOS  format.  See  treeiput 
for  a  description  of  the  treedata  file  format. 

The  test  switch  "-debug"  or  "— db"  is  used  by  maintenance 
personnel  to  trace  the  program  execution  and  data  values.  It  should 
not  be  specified  by  the  normal  user. 

User  Interaction: 
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If  the  input  ASCII  data  file  is  not  specified  in  the  call  to 
maketree,  the  following  question  is  asked: 

(1)  Enter  default  working  directory  input  ASCII  data  file  name:  nameLF 

Enter  the  input  file  name,  followed  by  a  LF. 

If  the  program  cannot  locate  the  input  file,  the  following 
question  is  asked: 

(2)  Input  ASCII  file  <name>  does  not  exist.  Do  you  wish  to  try  another 
input  file?  replyLF 

A  reply  of  "yes",  followed  by  a  LF  will  cause  the  program  to 
branch  to  question  (1) .  A  reply  of  "no"  terminates  the  program. 

If  the  output  MODS  data  file  is  not  specified  in  the  call  to 
maketree,  the  following  question  is  asked: 

(3)  Enter  5  to  8_character  output  MOOS  data  file  name:  nameLF 

Type  the  file  name,  followed  by  a  LF,  A  name  less  than  5 
characters  or  greater  than  8  characters  will  cause  the  program  to 
return  to  question  (3).  The  MOOS  data  file  is  checked  for 
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existence  in  the  program  treeiput.  Therefore,  it  is  not  checked 
by  maketree. 

(4)  Enter  number  of  keywords  in  input  data  file  <name>.  number LF 

Enter  the  number  of  keywords  to  skip,  followed  by  a  LF, 

(5)  Are  class  id's  present?  r eplyLF 

Type  "yes"  or  "no",  followed  by  a  LF,  A  "yes"  will  cause 
the  program  to  use  them  in  the  file  conversion,  A  "no"  will  cause 
the  program  to  generate  them  for  the  file  conversion. 

The  accompanying  Figure  4  shows  the  relationship  between  the 
input  ASCII  data  file,  the  intermediate  data  file  (treedata) ,  and  the 
resultant  MOOS  tree. 

As  described  earlier,  the  program  maketree  calls  the  program 
treeiput  to  convert  the  intermediate  file  to  the  MOOS  tree.  It  is 
never  necessary  for  the  user  to  call  the  program  treeiput. 
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Figure  4  ASCII  File  to  MOOS  Tree  Conversion 
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2,6  dumptree 

Function ;  dumptree  (-control_arguments) 

Control  arguments: 

-in  path  input  MOOS  tree  path  name 

-out  path  output  ASCII  data  file  path  name 

-debug ,  -db  test  switch 

Functional  Descr iption ; 

This  program  calls  the  program  treeoput  to  convert  the  input  MOOS 
tree  in  the  user's  process  directory  to  an  intermediate  file 
(treedata)  in  the  user's  process  directory,  then  processes  the 
intermediate  file  to  create  an  output  ASCII  data  file  in  the  user's 
default  working  directory.  ‘ 

The  test  switch  "-debug"  or  "-db"  is  used  by  maintenance 
personnel  to  trace  the  program  execution  and  data  values.  It  should 

.  i 

not  be  specified  by  the  normal  user. 

User  Interaction: 


I 
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If  the  input  MOOS  data  file  is  not  specified  in  the  call  to 
dumptree,  the  following  question  is  asked: 

(1)  ^nter  5  to  L_character  input  LOGS  data  file  name:  nameLF 

Enter  the  input  file  name,  followed  by  a  LF,  A  name  of  less 
than  5  characters  or  greater  than  8  characters  will  cause  the 
program,  to  return  to  question  (1).  The  existence  of  the  input 
MOOS  data  file  is  checked  by  the  program  treeoput.  Therefore,  it 
is  not  checked  by  dumptree. 

If  the  output  ASCII  data  file  is  not  specified  in  the  call  to 
dumptree,  the  following  question  is  asked: 

(2)  Enter  output  ASCII  data  file  name:  nameLF 

Enter  the  output  file  name,  followed  by  a  LF, 

If  the  output  file  exists,  the  program  will  ask  the  following 
question: 

(3)  Do  you  wish  to  overwrite  existing  file  <name>?  replyLF 

If  the  reply  is  "yes",  processing  continues.  If  the  reply  is 
"no",  the  program  asks  the  following  question: 
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(4)  Do  you  want  to  try  another  file?  replyLF 

If  the  reply  is  "yes",  the  program  branches  to  question  (2), 
If  the  reply  is  "no",  the  program  terminates. 

If  the  treedata  file  cannot  be  found  in  the  user's  process 
directory  after  executing  the  program  treeiput,  the  following  message 
is  displayed  before  the  program  terminates: 

(5)  "treedata"  file  does  not  exist  in  process  directory  -  program 
terminated . 

Figure  5  shows  the  relationship  between  the  input  MOOS  tree,  the 
intermediate  data  file  (treedata),  and  the  resultant  ASCII  data  file. 

As  mentioned  before,  the  program  ifumptree  first  calls  the  program 
treeoput  to  convert  the  MOOS  tree  to  the  intermediate  data  file.  Then 
the  program  dumptree  converts  the  intermediate  data  file  to  an  ASCII 
file.  The  program  treeoput  is  displayed  first  in  Figure  5  only 
because  this  program  is  the  first  to  do  a  file  conversion.  In  actual 
execution,  the  user  calls  dumptree  only,  and  need  never  call  the 
program  treeoput. 
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Figure  5  MOOS  Tree  To  ASCII  File  Conversion 
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2.7  unpack_tree,  upt 

Calling  Sequence: 

unpack_tree  treename 

Arguments: 

treename  is  the  name  of  a  WAVES  tree  to  be  unpacked. 

Function  Description. 

Generates  a  WAVES  tree  from  the  ASCII  file  treename. rde  located  in  the 
user's  default  working  directory. 

If  a  format  or  data  error  occurs  while  executing  unpack_tree,  the 
operation  is  halted.  An  error  will  be  reported  to  the  user.  If  any 
waveforms  were  successfully  unpacked  (up  to  the  last  semicolon 
passed),  then  the  tree  will  be  found  in  the  user's  file  and  will  be 
selected  (put  on  the  data  set  stack). 

The  format  of  a  WAVES  RDE  ASCII  file  is  given  in  figure  5A.  For 
more  information  on  the  use  of  unpack-tree  and  pack-tree,  the  user  is 
referred  to  the  MULTICS  Long  Waveform  Analysis  System  User's  Manual, 

( RADC- TR- 78-218) ,  A062111. 
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File  Items 

nodename , 

/* 

from  1  to  27  characters,  no  periods  */ 

id. 

/* 

from  1  to  16  characters,  representing  valid 
positive  integer  */ 

tf. 

/* 

domain:  "time"  or  "freq”  */ 

units, 

/* 

display  units:  "s",  "ms",  "us",  ”ns",  "Hz",  "kHz", 
"MHz " ,  "GHz"  */ 

st_sf , 

/* 

start  time  in  seconds  or  frequency  in  hertz  */ 

sr_f r , 

/* 

sampling  interval  in  seconds  or  hertz  */ 

type, 

/* 

waveform  type:  "real"  or  "complex"  */ 

text , 

/* 

waveform  text  */ 

tree_text , 

/* 

tree  text:  assigned  to  the  tree  only  if  text 
is  non-null  */ 

nseg_mar ks , 

/* 

number  of  segmentation  marks  */ 

mar k ( 1 ) , 

« 

/* 

segmentation  marks  word  coordinates  marked  */ 

« 

• 

mark  (nseg_iTar  ks)  , 

X(l)  , 

• 

/* 

First  waveform  point  */ 

• 

X{K)  ; 

/* 

semicolon  marks  end-of-wavef orm  */ 

nodename , 

/* 

repeat  of  above  for  each  waveform  */ 

X(M)  ; 

/*  /*  "slash-star"  marks  end-of-tree  */ 

Figure  5A  WAVES  I/O  File  Format 
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2,8  pack_tree,  pt 

Calling  Sequence: 

pack_tree  (tree) 

Arguments: 

tree  is  the  name  of  a  WAVES  data  tree,  (optional) 

Function  Description, 

Converts  a  WAVES  data  tree  into  an  ASCII  formatted  file  whose 
format  is  specified  in  Figure  5A. 

Detailed  Description: 

If  a  tree  is  not  specified,  the  current  tree  is  used. 

This  command  does  not  affect  the  data  set  stack. 
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3  CTS  USER'S  MANUAL 

3.1  Overview 

The  editing  and  extraction  of  data  is  achieved  through  computer 

programs  which  do  the  following:  1)  scan  data  for  specific  keywords, 

i: 

2)  scan  data  for  specific  fields,  and  3)  evaluate  boolean  expressions 
which  are  functions  of  the  data  measurements. 

A  syntax  (grammar)  has  been  designed  as  a  format  by  which  the 
user  should  structure  his  commands.  These  commands  must  be  recognized 
as  being  in  the  correct  format  before  the  editing  specified  by  the 
commands  is  actually  performed.  The  editing  is  accomplished  through 
recognition  of  the  commands,  input  by  the  user.  There  are  four 
editing  commands:  "change",  "move",  "insert"  and  "delete".  Briefly, 
the  "change"  command  will  change  keywords  or  fields  within  a  vector, 
the  "move"  command  will  move  a  field  to  either  the  head  or  tail  of  the 
vector,  the  "insert"  command  will  insert  a  field  anywhere  in  the 
vector,  and  the  "delete"  command  will  delete  any  field  within  a 
vector.  A  more  detailed  description  of  each  command  will  follow  later 
in  this  section.  Once  a  command. is  recognized,  it  is  translated  into 
a  PL/1  statement  which  is  placed  into  a  PL/1  program.  This  program 
can  be  compiled  and  executed.  Provisions  have  been  made  controlling 
both  the  compilation  and  the  execution  of  the  program,  which  will  also 
be  discussed  later  in  this  section. 

If  the  user  mistypes  a  command,  CTS  will  attempt  to  continue 
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processing  the  command,  making  corrections  as  it  encounters  the 

errors.  When  an  error  is  detected,  depending  on  the  type  of  error, 
CTS  will  either  make  the  correction  itself  or  query  the  user  for  the 
correction.  The  corrected  command  is  displayed  to  the  user,  who  is 
then  asked  if  the  corrected  command  is  acceptable.  The  user  should 

reply  "yes"  or  "no".  If  the  reply  is  "yes",  CTS  will  continue 

$ 

processing  the  corrected  command  from  the  point  of  the  error.  If  the 
user  replies  "no",  then  CTS  will  respond  with  the  question  "Enter 
either  ""cease""  or  ""quit"":".  Only  at  this  stage  in  CTS  can  the  user 
use  the  terms  "cease"  which  terminates  processing  of  all  commands,  or 
"quit"  which  terminates  processing  of  the  current  command. 

The  original  data  file,  located  in  the  user's  default  working 
directory,  is  read,  one  vector  at  a  time,  into  a  buffer  within  CTS. 

Any  editing  (where  editing  consists  of  changing,  moving,  inserting  and 

deleting  data,  keywords  or  fields  within  a  vector)  is  then  done  on 
each  vector  individually.  After  each  vector  is  edited,  it  is  written 
into  a  file  located  in  the  process  working  directory.  After  the  last 
vector  of  the  original  data  file  has  been  edited  and  written  into  the 
file,  the  original  data  file  is  then  replaced  by  the  edited  data  file 
(i.e.  the  original  data  file  is  written  over  by  the  edited  data  file). 
The  extraction  of  vectors,  if  any,  occurs  after  the  original  data 
file  has  been  replaced  by  the  edited  data  file.  Extractions  are 
accomplished  through  recognition  of  the  "extract"  command  as  a  CTS 
command.  This  command  extracts  pertinent  vectors  from  the  edited  data 
file.  Once  recognized,  the  command  will  be  translated  into  PL/1 
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statements  which  will  then  be  appended  to  the  same  PL/1  program 
containing  the  editing  commands.  This  program  will  not  only  edit  the 
original  data  file,  but  also  extract  pertinent  vectors  and  place  them 
into  a  separate,  user-named  file  located  in  the  user's  working 
directory  for  subsequent  input  to  MOOS. 

In  processing  each  command,  the  PL/1  program  will  operate  as  a 
two-pass,  multi-operational  system.  In  the  first  pass,  each  "edit" 
command  (where  an  "edit"  command  is  any  of  the  four  commands  listed 
above)  will  examine  each  individual  vector  to  determine  if  the  command 
can  be  applied  to  it.  If  it  can,  the  necessary  editing  in  done. 
After  each  edit  command  has  examined  a  vector,  the  next  vector  is 
examined.  This  process  continues  until  all  the  vectors  have  been 
examined.  The  second  pass  will  then  do  any  extractions  by  examining 
each  vector  and  extracting  the  pertinent  ones. 

CTS  will  operate  in  one  of  two  modes.  It  will  operate 
interactively  with  the  user  as  he  is  sitting  at  a  terminal  keyboard, 
or  as  in  batch  processing,  with  all  commands  read  from  a  file  with  the 
editing  done  according  to  the  given  commands.  The  user  must  specify, 
when  calling  CTS,  which  mode  of  operation  he  wishes  to  use.  More 
information  concerning  the  two  modes  will  be  discussed  later  in  this 
section. 

CTS  was  designed  as  a  fairly  machine-independent  system.  There 
are,  however,  a  few  Multics  system  subroutines  included  in  CTS,  They 
are: 
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1)  com_er r_  prints  the  actual  system  error  message 

instead  of  just  the  error  number. 

2)  cu_$arg_count  returns  the  number  of  arguments  a  subroutine 

is  called  with. 

3)  cu_$arg_ptr  a  pointer  to  the  arguments  of  a  command, 

4)  cu_$cp  command  processor  which  passes  commands 

from  within  a  program  to  the  command  level. 
It  is  used  for  the  compilation  and 
execution  of  the  user's  program, 

5)  get_default_wdir_  gets  the  default  working  directory, 

6)  get_ pdir__  gets  the  process  directory. 

7)  hcs_$delentry_f ile  deletes  a  file  in  a  specified  directory, 

8)  hcs_$star  returns  the  entry  count  of  a  segment 

or  directory, 

6)  ioa_  used  for  formatting  a  character  string  from 

fixed_point  numbers,  floating-point  numbers, 
character  strings,  bit  strings,  and  pointers. 
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attaches  the  i/o  switch  "error-output", 

closes  the  i/o  switch. 

7)  iox_$detach_iocb  detaches  the  i/o  switch  "error-output". 

9)  iox_?£ ind_iocb  gets  a  pointer  to  the  i/o  switch 

"error-output" . 

lfi)  iox_$or.en  opens  the  i/o  switch. 
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3,2  Definitions 

The  important  terms  used  within  CTS  are  defined  here, 

1)  .command  -  a  statement  which  tells  CTS  what  type  of  editing  to  do 

on  the  data  file, 

2)  control  arguments  -  arguments  which  specify  the  function  of  CTS 

i.e.  if  the  user  wants  a  listing  of  the  generated  PL/1 
program,  or  just  a  syntax  check  of  the  commands,  etc, 

3)  data  -  a  measurement  of  some  attribute  of  an  item  under  analysis. 

If  a  vector  ID  is  given,  it  precedes  the  data. 
Otherwise  the  data  immediately  follows  the  keywords, 

4)  default  working  directory  -  the  working  directory  of  a  user  when  he 

first  logs  on  to  the  system, 

5)  degree  of  severity  -  Compilation  of  a  program  produces  a  list  of 

errors,  if  any  exist.  Each  error  has  a  level  of 
severity;  which  range  from  0  to  4  as  follows; 

0  -  indicates  no  errors  were  detected. 

1  -  indicates  a  minor  error. 

Compilation  continues  with  no  ill  effect. 
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2  -  indicates  a  correctable  profclem  error.  The  compiler 

remedies  the  and  usually  continues  with  no  ill 

effect. 

3  -  indicates  a  fatal  .  error  has  been  detected. 

4  -  indicates  an  unrecoverable  error  has  been  detected. 

The  compiler  cannot  continue  beyond  this  point. 

\ 

A  program  having  a  degree  of.  severity  of  2  or  less 
can  be  compiled.  However,  if  the  degree  of  severity 
is  greater  than  2,  compilation  of  the  program  is 
terminated . 


6)  delimiters  -  the  following  delimiters  are  recognized-  _in  CTS: 


comma  (,)  -  separates  fields  within  the  vector. 


dash  (-)  -  indicates  a  CTS  pathname  or  control  argument 

immediately  follows. 


period  (,)  -  indicates  the  end  of  an  edit  or  extract 
command . 


semi-colon  (;)  -  denotes  the  end  of  a  vector, 
slash-asterisk  (/*)  -  denotes  the  end  of  the  data  file. 


7)  field  -  a  data  vector  in  the  data  file  has  the  format 
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classname,  keywordl ,keyword2  , . . . , vector  ID, data, 


Each  char  string  between  commas  is  called  a  field.  In  this 
example,  field (3)  is  keyword2. 


8)  keyword  -  a  particular  word  or  character  string  which  the  user 
has  designated  as  important.  Keywords  follow  the  classname  and 
precede  the  vector  ID  (if  one  is  given)  and  any  data. 


9)  parse  -  resolving  a  CTS  command  into  its  grammatical  parts. 


IB)  path  -  name  of  a  file. 


-11)  pathname  arguments  -  arguments  which  specify  an  input,  output  or 
,^aved  file,  * 


ru  uici  ik 


12)  process  working  directory  -  a  directory  containing  those 
segments  that  afe  meaningful  only  during  the  life  of  a  group 
of  programs  in  execution. 


13)  production  -  rules  of  a  grammar. 


14)  recursive  -  procedures  are  recursive  if  they  can  call  themselves 
either  directly  or  indirectly  through  a  chain  of  other  procedure 


* 
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calls. 

15)  subfield  -  a  substring  within  a  field. 

16)  token  -  a  word  or  character  of  the  input  command  line. 

17)  top  down  processing  -  a  processor  which  recognizes  syntax 
productions  higher  up  in  the  grammatical  tree  before  those  lower 
down. 
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3,3  CTS  Initiation 

Function: 

Accepts  commands  to  generate  a  PL/1  program  which 
processes  an  ASCII  ROE  data  file. 

Syntax : 

—  cts  {-pathname_args}  { -control_args } 

Pathname  Arguments: 

-old  path 

path  is  the  file  name  of  the  input  segment  or 
multi_segment  ASCII  RLE  data  file.  If  not  present,  the 
program  will  query  the  user  for  the  input  data  file  segment 
name, 

-new  path 

file  name  of  ASCII  RDE  data  file  to  be  created  from  applying 
cts  to  the  input  data  file.  Default  path  name  will  be 
"empty" . 

-in  path 

name  of  the  segment  from  which  CTS  control  arguments  and 
commands  are  to  be  taken.  This  segment  must  have  ".cts"  as 
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a  suffix,  but  is  not  required  in  the  command  line.  May  be 
used  only  as  a  calling  argument. 

-out  path 

name  of  the  segment  to  which  CTS  control  arguments  and 
commands  are  be  copied.  If  missing,  a  suffix  of  ".cts" 


will  be  applied 

by  the  program. 

This 

argument 

is 

incompatible  with  the 

-in  argument  above. 

The 

default 

is 

no  output  control  segment. 

-save  path,  -sv  path 

causes  the  generated  PL/1  program  to  be  saved  in  the 
current  working  directory,  A  suffix  of  ''.pll"  is 
appended  to  the  segment  but  is  not  required  in  the  command 
line. 

Control  Arguments: 

-list 

causes  a  listing  of  the  generated  PL/1  program.  Default  is 
no  1  i  s  t  i  ng  , 

-check,  -ck 

checks  syntax  of  input.  No  translation  or  program 

generation. 
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-noxqt,  -nx 

Used  with  the  -save  argument  to  generate,  but  not  execute 
the  program, 

-arguments  argstring,  -args  argstring 

passes  the  PL/1  compilation  arguments  "argstring"  to  the 
PL/1  compiler.  If  this  argument  is  used,  it  must  be  the 
last  control  argument.  The  format  for  "argstring"  is  "-argl 
-arg2  ..,-argn".  The  severity  level  argument,  if  specified, 
is  ignored.  Default  is  no  compilation  arguments. 

-noquery,  -nq 

inhibits  message  soliciting  user  for  control  arguments,  PL/1 
arguments,  and  commands.  Implies  that  all  arguments  and 
commands  will  be  read  from  a  file.  Default  is  to  query  the 
user  for  all  arguments  and  commands. 

-echo 

causes  the  input  control  arguments  and  commands  to  be 
echoed  back  to  the  terminal  as  they  are  read  in.  Default 
is  no  echo. 

-debug ,  -db 

causes  a  trace  of  statements  executed.  Default  is  no  trace. 
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-panic 


Note : 


prints  a  listing  of  all  the  arguments  available  in  CTS. 


will  notify  the  user  if  he  attempts  to  put  a  vector  in  two 
different  classes  and  will  terminate  execution  of  the 
generated  PL/1  program.  Default  is  notification  of  this 
occurrence,  creation  of  a  file  containing  all  vectors  placed 
in  more  than  one  class,  and  continued  execution  of  the 
generated  PL/1  program, 


Control  arguments  may  be  specified  at  the  time  of  the  call 
to  cts  or  as  input  commands  from  either  the  terminal  or  the 
file  specified  by  the  "-in"  arguments.  When  both  modes  are 
used,  arguments  specified  at  calling  time  take  precedence 
over  input  arguments. 


User  interaction: 


If  the  input  data  file  name  is  not  specified  when  CTS  is  called, 
the  program  displays  the  following  questions: 


1)  Enter  missing  input  (-old)  data  file  name: 


. 

«  . 

•  »  Mi 
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Type  in  segment  name  of  the  data  file  followed  by  a  1 inefeed (1 f) . 

2)  Enter  control  arguments: 

Type  in  control  argument  followed  by  a  linef eed ( If ) , 

The  user  will  continue  being  prompted  for  control  arguments  until  he 
either  types  only  a  linefeed(lf)  or  types  in  the  argument  "-args"  at 
which  point  question  (3)  is  displayed. 

3)  Enter  target  program  PL/1  argument: 

Type  in  compilation  arguments  which  will  be  used  in  compiling  the 
generated  PL/1  program.  The  user  will  continue  being  prompted  for 
individual  compilation  arguments  until  he  types  in  only  a 
linefeed (If) , 

Question  (4)  is  displayed  if  after  compiling  the  generated  PL/1 
program,  an  error  of  severity  >2  has  been  found, 

4)  Do  you  want  to  execute  the  generated  PL/1  program? 

Type  in  "yes"  or  "no"  followed  by  a  1 inefeed ( 1 f ) ,  If  no  compilation 
errors  were  found,  or  an  error  of  severity  <2  was  found,  then  the 
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generated  PL/1  program  is  automatically  executed,  unless  the  user  has 
specified  the  argument  "-noxqt" . 

Following  are  examples  of  how  CTS  may  be  called,  and  the  results 
of  the  call. 

1)  cts  -old  vehicles  -new  cars 

If  the  optional  control  argument  "-out"  was  specified  with  the 
pathname  "auto",  the  commands  entered  from  the  terminal  would  also  be 
saved  in  the  file  "auto. cts". 

Once  the  commands  to  CTS  have  been  saved  in  a  file,  the  user  may 
choose  to  then  use  them  instead  of  entering  them  at  the  terminal. 

For  example,  if  the  commands  to  extract  vectors  from  a  file  were 
in  the  entry  "auto. cts",  the  following  call  to  CTS  would  function  as 
in  example  (1),  but  the  user  would  not  have  to  list  the  commands: 

2)  cts  -old  vehicles  -new  cars  -in  auto 

Statements  read  from  the  input  file  may  be  echoed  at  the  terminal 
(i.e.  displayed)  by  including  the  argument  "-echo",  as  shown  in 
example  (3) : 

3)  cts  -old  -new  cars  -in  auto  -echo 


3-15 


FINAL  REPORT 


REMOTE  DATA  ENTRY 
SECTION  3  -  CTS  USER'S  MANUAL 


Each  read  by  CTS  is  preceded  by  a  query  to  the  user.  This  query 
may  be  disabled  by  including  the  argument  "-noquery"  or  "-nq"  as  shown 
in  example  (4) : 

4)  cts  -old  vehicles  -new  cars  -in  auto  -echo  -noquery 

If  the  user  simply  wants  to  check  the  syntax  of  his  commands,  he 
should  include  the  argument  "-check"  or  "-ck".  No  translation  of  the 
commands  or  program  generation  is  performed. 

If  the  user  expects  to  use  the  same  program  with  various  input 
data  sets,  he  may  elect  to  save  the  program  rather  than  delete  it 
after  the  execution.  This  is  accomplished  by  including  the  argument 
"-save"  or  "-sv",  and  the  name  the  program  is  to  be  saved  under. 
Example  (5)  would  cause  the  generated  program  to  be  saved  in  the  file 
"extract^ cars.pll" : 

5)  cts  -old  vehicles  -new  cars  -in  auto  -echo  -sv  exttact_cars 

Upon  completion  of  CTS,  the  user  may  then  use  the  MULTICS  command  "pr" 
to  print  a  copy  of  the  saved  source  segment. 

If  the  user  elects  not  to  execute  the  generated  program,  he  should 
include  the  argument  "-noxqt"  or  "-nx",  as  shown  in  example  (6): 
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6)  cts  -old  vehicles  -new  cats  -in  auto  -echo  -sv  extract_cars  -nx 

The  user  may  then  elect  to  submit  the  saved  program  as  part  of  an 
absentee  job  by  using  the  KULTICS  command  "ear". 

Should  the  user  decide  to  see  the  generated  program  listed,  he 
should  include  the  argument  "-list",  as  shown  in  example  (7); 

7)  cts  -old  vehicles  -new  cars  -in  auto  -echo  -sv  extract_cars  -list 

Should  the  user  wish  to  see  the  flow  of  the  program,  he  should 
include  the  argument  "-debug"  or  "-db"  as  illustrated  in  example  (8): 

8)  cts  -old  vehicles  -new  cars  -in  auto  -echo  -list  -db 

It  is  not  recommended  to  use  the  argument  "-debug"  or  "-db" 
since  it  was  included  specifically  as  a  debugging  and  maintenance 
tool.  However,  the  option  is  there  for  the  user. 

If  the  user  wants  a  table  or  a  map  of  the  compiled  program  [see 
the  MULTICS  Programmers'  Manual  -  Commands  and  Active  Functions  - 
"PL/1"  function  for  explanations  on  how  to  compile  a  program  with  a 
map  and/or  table  option] ,  he  should  include  the  argument  "-arguments 
argstring"  or  "-args  argstring"  where  "argstring"  is  the  string  of 
arguments  used  for  compilation  purposes.  These  arguments  will  be 
passed  to  the  PL/1  compiler  with  the  program  the  user  wants  executed. 
If  this  argument  "-args  argstring"  is  used,  it  must  be  the  last 
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control  argument  as  shown  in  example  (9): 

9)  cts  -old  vehicles  -new  cars  -in  auto  -list  -args  -map  -sv3 

If- the  "-arg"  argument  is  not  specified,  the  program  will  be  compiled 
with  only  the  argument  "-sv4". 

One  of  the  convient  features  of  CTS  is  the  way  in  which  commands 
in  the  "-in"  file  are  overridden  by  the  calling  arguments.  Any 
argument  which  is  set  by  the  call  may  not  be  reset  by  "-in"  file 
commands.  Thus,  the  call  may  specify  a  different  "-save"  file  name 
than  what  is  in  the  "-in"  file.  Additionally,  the  call  may  set 
switches  not  specified  in  the  "-in"  file.  Thus,  if  the  "-in"  file 
does  not  specify  ”-nx" ,  but  the  call  does,  the  program  will  not  be 
executed. 
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3.4  Keyword  Specification 

Keywords  are  words  within  a  vector  which  help  distinguish  one 
vector  from  another.  If  the  vector  data  contains  keywords,  it  is 
helpful  in  the  editing  and  extraction  process  to  specify  and  use  these 
keywords  to  identify  the  correct  vector.  The  purpose  of 
process_keywords  is  to  obtain  these  keywords  and  store  them  in  an 
array  for  later  reference.  Subfields  can  also  be  specified,  but  are 
optional.  Subfields  are  substrings  of  characters  within  the  keywords. 
If  a  user  would  rather  not  have  to  refer  to  the  whole  keyword,  but 
only  a  few  characters,  he  can  specify  this  through  the  use  of 
subfields.  If  subfields  are  given,  they  should  be  in  the  form  "a,b" 
where  "a"  and  "b"  are  integers.  The  first  subfield,  "a",  represents 
the  beginning  position  within  a  field  where  the  substring  should 
begin.  This  field  has  been  defined  by  the  keyword  denoted  by  the 
user.  The  second  subfield,  "b",  represents  the  length  or  the  number 
of  characters  to  be  considered.  If  "b"  is  not  given,  then  beginning 
with  "a'1,  the  rest  of  the  string  is  extracted.  If  no  subfields  are 
given,  the  whole  field  is  extracted. 

Upon  entering  process_keywords ,  the  the  following  questions  are 
displayed  to  the  user:  1)  How  many  keywords? 

Type  in  an  integer  representing  the  number  of  keywords  in  each  vector 
in  the  data  file. 


3-19 


FINAL  REPORT 


REMOTE  DATA  ENTRY 
SECTION  3  -  CTS  USER’S  MANUAL 


2)  Enter  keyword  and  optional  subfields: 

User  types  in  the  keyword.  If  there  are  subfields,  the  user  can 
follow  the  keyword  by  a  space  and  then  the  subfields.  If  the  user 
wants  to  skip  naming  the  keywords,  he  types  in  "skip"  followed  by  a 
linefeed  (If).  Question  (4)  will  be  displayed  prompting  the  user  for 
subfields  for  each  keyword.  If  he  mistakenly  hits  only  a 
linefeed (If ) ,  question  (3)  will  be  displayed. 

3)  Please  enter  a  keyword  or  "skip": 

User  types  in  either  a  keyword  or  "skip"  followed  by  a  linefeed(lf )  . 

4)  Enter  keyword (n)  subfields: 

where  n  runs  from  the  current  keyword  number  to  the  total  number  of 
keywords.  User  types  in  the  subfields  followed  by  a  linefeed(lf ) ,  For 
examples  of  keyword  subfields,  refer  to  the  program 
cts_process_keywords  documentation. 

If  a  keyword  subfield  is  not  an  integer  or  not  in  the  correct  format, 
then  question(5)  will  be  disolayed. 

5)  Enter  keyword  subfield(s): 


3-20 


FINAL  REPORT 


REMOTE  DATA  ENTRY 
SECTION  3  -  CTS  USER'S  MANUAL 


| 


User  types  in  keyword  subfield  or  subfields  for  the  current  keyword 


blue-pur pel, oval, brown, 5. 6, .5,1,0 


be  the  one  the  user  is  interested  in  correcting.  Note  the  incorrect 


spelling  of  the  first  keyword 


blue-purpel 


change  the  last  two  letters  from  "el"  to  Hle 


type  in  the  complete  keyword.  He  is  able  to  do  this  by  specifying 
when  he  is  asked  for  the  first  keyword  and  subfields,  the  following 


color  10,2 


When  CTS  examines  the  first  keyword,  it  will  skip  to  the  tenth 


character  and  begin  its  examination  from  that  point  for  two 


which  in  this  case  is  the  end  of  the  word 


had  typed  in  the  command 


change  color  IB, 2  ="el"  to  "le 


the  first  keyword  of  the  vector  would  now  look  like  this 


blue-pur pie, oval , brown, 5. 6 ,.5,1.0 
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If  the  user  is  more  concerned  with  the  location  of  the  keyword  in 
the  vector  rather  than  the  actual  keyword,  he  can  type  in  "skip"  when 
he  is  asked  to  enter  a  keyword  and  optional  subfields.  Once  this  is 
done,  the  remaining  keywords  will  be  generated  as  keyword(i)  where  i 
is  l<.i<n  and  n  is  the  number  of  keywords.  For  each  generated  keyword, 
the  user  is  asked  for  optional  subfields.  If  the  user  is  not 
concerned  with  all  or  some  of  the  subfields,  he  should  type  "nsubs". 
This  will  indicate  to  process_keywords  that  there  are  no  subfields  for 
the  remaining  keywords  that  are  to  be  generated. 

For  example: 

The  user  is  asked  for  the  number  of  keywords  and  he  types  in  "3".  He 
is  then  asked  for  the  first  keyword  along  with  its  subfield.  He  types 
in  "plane  2,3",  He  is  asked  for  the  second  keyword.  He  types  "skip 
nsubs".  He  is  specifying  that  there  are  no  subfields  for  the 
generated  keywords.  So  the  keywords  that  will  be  recognized  are:  1) 
plane  2,3  2)  keyword(2)  and  3)  keyword(3)  where  keyword(2)  and 
keyword (3)  refer  to  the  second  and  third  keyword  in  a  vector. 
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3,5  CTS  Command  Syntax 

CTS  generates  a  PL/1  program  based  on  the  user-supplied  CTS 
commands  which  will  operated  on  the  data  file.  During  the  process  of 
generating  the  Pl/1  program,  CTS  obtains  edit  and  extraction  commands 
and  passes  these  commands  to  the  corresponding  subroutines  for  further 
processing , 

User  interaction: 

1)  Do  the  vectors  in  the  data  file  have  a  classname  located  as  the 
first  point  of  the  vector? 

Type  in  either  "yes"  or  "no"  followed  by  a  linefeed(lf ) , 

2)  Is  there  a  vector  ID  following  the  keywords? 

Type  in  either  "yes"  or  "no"  followed  by  a  linefeed (If ) . 

If  the  user  fails  to  answer  yes  or  no  to  questions  (1)  and  (2) ,  the 
following  question  is  displayed. 

3)  Please  answer  "yes"  or  "no": 

Type  in  either  "yes"  or  "no"  followed  by  a  linefeed(lf ) , 
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4)  Enter  command  line: 

Type  in  a  command (s)  followed  by  a  1 inef eed ( 1 f ) ,  For  the  format  of 
cojnmands,  see  the  syntax  charts.  Once  the  syntax  of  the  command 
line  has  been  checked,  and  if  the  line  does  not  end  in  "end",  then  the 
subroutine  "get_char"  will  ask  the  user  for  the  next  command  line.  If 
there  is  an  uneven  number  of  quotes  in  the  line,  an  error  subroutine 
"error"  notifies  the  user  of  the  erroneous  command  line. 

There  are  five  commands  that  will  be  recognized.  They  are:  "change", 
"extract",  "move",  "delete"  and  "insert".  A  syntax,  as  mentioned 
earlier,  has  been  designed  as  a  guide  to  the  user  in  formating  his 
commands.  It  is  a  context-free  LL(1)  grammar  having  recursive 
procedures  and  top  down  processing.  The  grammar  is  presented  in  the 
following  figure  and  demonstrates  the  manner  in  which  CTS  will  parse 
each  command.  Any  term  enclosed  within  "<«..>"  is  a  nonterminal  while 
all  other  terms  are  terminals,  A  nonterminal  is  parsed  until  a 
terminal  is  encountered,  indicating  the  end  term  (a  terminal)  which 
is  acceptable  to  CTS.  The  terminals  "and"  and  "or"  are  represented 
as  "&"  and  "|"  respectively  in  the  grammar. 

The  following  figures  represent  the  syntax  graphs  of  each 
production  of  the  grammar.  In  the  syntax  graphs,  all  nonterminals  are 
enclosed  within  and  all  terminals  are  enclosed  within 
"(...)".  Optional  terminals  are  enclosed  within  "{  }".  In  both  the 
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grammar  and  the  syntax  graphs,  the  term  "null"  indicates  a  nullable 
production  meaning  that  the  production  may  not  be  needed  in  every 
command  or  series  of  commands. 

NOTE:  It  is  important  that  the  user  enter  all  the  "edit"  commands 
before  any  "extract"  commands  are  entered.  If  not,  CTS  will 
terminate.  Each  command  must  end  in  a  period.  If  it  does  not,  the 
user  will  be  told  of  the  error,  a  period  appended  to  the  end  of  the 
command,  and  CTS  will  continue  to  the  next  command.  After  the  user 
has  entered  all  his  commands,  he  should  enter  the  word  "end" 
indicating  to  CTS  that  all  the  commands  have  been  entered. 
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<syntax>  : : = 
<command>  ::= 

<change>  : : = 
<extract>  :  :  = 

<move>  : : = 

<insert>  : : = 

<delete>  : : = 

Cchange  expression> 
<Boolean  term>  : := 
<or_term>  ::=  . 

<Boolean  factor>  : : 
<and_fac>  ::= 

<Boolean  secondary> 

<Boolean  primary>  : 
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<command>end 

<change>  <move>  <insert>  <delete>  <extract> 
|<move>  <insert>  <delete>  <extract> 
change  <change  expressions 
extract  <Boolean  term>  <change_class>. 

Inull 

move  <f ield_loc>=<str ing>  to  <Ioc>, 

I  null 

insert  <f ield_loc>=<str ing>  <string>. 

1  null 

delete  <f ield_loc>=<string>. 

!  null 

::=  <relation>  to  <string> 

<Boolean  factor>  <or_term> 

I  <Boolean  term> 

I  nul  1 

=  <Boolean  secondary>  <and_fac> 

&  <Boolean  factor> 

I  null 

::=  <Boolean  primary> 

|*<Boolean  primary> 

=  <relation> 

I (<Boolean  term>) 

Figure  6  CTS  Command  Syntax 


3-26 


FINAL  REPORT  REMOTE  DATA  ENTRY 

SECTION  3  -  CTS  USER'S  MANUAL 


<change_class>  ::= 

class=<str ing> 

<relation>  ::= 

<data>  <relational  operator>  <value> 

<data>  :  :  = 

<predefined  keyword>  <position> 

l<field>  <position> 

Relational  operator>  :  :  = 

<position>  :  :  = 

<integer><more  integer> 

Inull 

Cmore  integer>  :  :  = 

,<integer> 

Inull 

<predefined  keyword> 

keyword (<integer>) 

(user-defined  keyword 

<f ield>  :  :  = 

data 

! field (<integer>) 

<value>  :  :  = 

Cnumber > 

1  <str ing> 

<number>  : := 

any  type  of  number 

<f ield_loc>  : := 

field (<integer >) 

<str ing>  :  :  = 

"string  of  ASCII_chars" 

{excluding  control  chars) 

<loc>  :  :  = 

head 

1  tail 

<integer>  :  :  = 

any  combination  of  the  following 

integers  -  0 ! 1 1  2 | 3  I  4 f 5 | 6 | 7 ! 8 | 9 

Figure  6  CTS  Command  Syntax  (continued) 
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<syntax> — >  <command> — >  (end) — > 

<c'otnmand>->  <change> — >  <move> — >  <insert> — >  <delete> — >  <extract> — > 

\  /  /  /  / 

\->  <move> - /  /  /  / 

\->  <inser t> - - - /  /  / 

\->  <delete> - /  / 

\->  <extract> - / 

<change> — >  (change) — >  <change  expression> — >  (.) — > 

<move>->  (move)->  <f ield_loc>->  (=)->  <string>->  (to)->  <loc>->  (.)-> 

\  / 

\ - null - / 

<insert>->  (insert)->  <field  loc>->  (=)->  <string>->  <string>->  (.)-> 

\v  / 

\ - null - / 

<delete> — >  (delete) — >  <field_loc> — >  (=) — >  <string> — >  (.) — > 

\  / 

\ - - - null - / 

<extract> — >  (extract) — >  <Boolean  term> — >  <change  class> — >  (.) — > 

\  / 

\ - - - - - null - / 

<change  expression> — >  <relation> — >  (to) — >  <string> — > 

<relation> — >  <data> — >  <relational  operator> — >  <value> — > 

<data> — >  <predefined  keyword> — >  <position> — > 

\  / 

\->  <field> - / 

Relational  operator> — >  {(')} - >  (<) - > 

\  / 

\— >  (»— / 

\->  (-)— / 


Figure  7  CTS  Syntax  Graph 
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Cvalue>- - >  Cr.ur.ber>- - > 

\  / 

\->  Cstring>-/ 


Ccreoefinec  keyword> —  >  (keyword) — >  (()-->  Cinteger>~>  ())--> 

\  / 

\->  (user-defined  keyword) - / 


<field> - >  (data) - * - > 

\  / 

\->  (field) — >  (() — >  cinteger> — >  ()) — / 


<position> - >  <integer> - >  Cmore  integer> - > 

\  / 

\ - null - / 


<integer> — >  (any  comb,  of  the  following  integers) - > 

(  0I1I2I3M5I6I7I8I9  ) 


Cmore  integer> - >  (,) - >  <integer> - > 

\  / 

\ - null - / 


<field_loc> — >  (field) — >  (() — >  <integer> — >  ()) — > 


<loc> - >  (head) - > 

\  / 

\->  (tail)-/ 


CEoolean  term> — >  CBoolean  factor> — >  <or_term> — > 
CLoolean  factor>— >  CBoolean  secondary>— >  Cand_fac>— > 


Cor  term> — >  (|) — >  CBoolean  term> — > 
"  \  / 

\ - null - / 


CBoolean  secondary> — >  {(“)} — >  CBoolean  primary> — > 


Cand  fac> - >  (&) - >  CBoolean  factor> - > 

\  / 

\ - null - / 


Figure  7  CTS  Syntax  Graph  (continued) 
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<Boolean  pr irr.a ry> — >  <relation> - > 

\  / 


\->  (() — >  <Eoolean  terrr,> — >  ())-/ 
<number> — >  (any  type  of  number) — > 

<string> — >  (") — >  (string  of  ASCII  chars) — >  (") — > 
<change_class> — >  (class) — >  (=) — >  <string> — > 

Figure  7  CTS  Syntax  Graph  (continued) 
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3.6  Change  Command 

change  <data>  { <position>}  <rel  op>  <value>  to  <string>, 

where 

1)  <data>  -  consists  of  one  of  the  four  following  terms: 

a)  user-defined  keyword  -  a  keyword  the  user  has 

specified  earlier  when  asked  for  the  keywords. 

b)  keyword(i)  -  i  is  an  integer  and  refers  to  the 

i-th  keyword  in  the  vector.  The  i  should  be 
enclosed  in  parentheses. 

c)  data  -  refers  to  the  data  fields  in  the  vector, 

d)  field(i)  -  i  is  an  integer  and  field  refers  to  the 

i-th  field  in  the  vector  The  i  should  be  enclosed  in 

parentheses, 

2)  <position>  -  is  an  optional  entry  and  refers  to  the  location 

within  a  field  plus  the  number  of  characters  to  consider. 
It  is  an  optional  entry  since  it  may  not  be  needed  in 

every  "change"  command.  The  format  of  "position"  is 
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"a,b"  or  "a"  where  "a“  and  "b"  are  integers.  The 
position  has  the  same  meaning  as  the  keyword  subfields 
mentioned  earlier. 

3)  <rel  op>  -  consists  of  one  of  the  following: 


The  relational  operators  "<"  and  ">"  are  to  be 
used  only  with  data  or  field(i)  relations. 

4)  <value>  -  consists  of  either  a  string  of  ASCII  characters 

enclosed  within  quotes  or  a  number. 

5)  <string>  -  a  string  of  ASCII  characters  enclosed  within 

quotes. 

Command  Descr iption: 

The  "change"  command  is  used  to  change  either  keywords,  fields, 
or  data  within  a  vector.  All  changes  occur  on  the  current  version  of 
the  vector.  An  example  follows  using  various  "change"  commands  to 
demonstrate  its  use. 


The  given  vector  is: 


I 
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jeaps,fourwheel,0125,4.236E-14,56.05,-32,-.5068E-05; 

If  the  first  command  given  were:  change  data=56,05  to  "5.605", 

the  resulting  vector  would  look  like  this: 

jeaps , four wheel ,0125,4. 23 6E-14, 5. 605,-32,-. 5068E-05 ; 

J 

Suppose  the  next  command  given  was:  change  field(l)  3,l="a"  to  "e", 

the  vector  would  look  like  this: 

jeeps, four wheel, 0125,4. 236E-14, 5. 605, -32,-. 5068E— 05 ; 

The  third  command  given  is:  change  keyword(2)  l,4="four"  to  "". 

the  vector  becomes  this: 

jeeps , wheel , 0125 , 4. 236E-14 , 5. 605,-32 ,-. 5068E-05 ; 
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3.7  Delete  Command 


delete  f ield (i) =<str ing>. 


where 

1)  field(i)  -  refers  to  the  i-th  field  in  the  vector.  The  i 

should  be  in  parentheses. 

2)  <string>  -  is  a  string  of  ASCII  characters  enclosed  within 

double  quotes.  If  the  character  within  the  quotes  is 
then  all  field(i)'s  will  be  deleted. 

Command  Description : 

The  "delete"  command  is  used  to  delete  fields  within  the  vector.  This 
command  states  that  the  i-th  field  containing  a  certain  string  is  to 
be  deleted.  As  in  the  "change"  and  "insert"  commands,  all  deletions 
of  fields  are  relative  to  the  current  version  of  the  vector. 

For  example: 

Suppose  the  original  vector  is: 

planes, sil ver , jet , twoseater , 150, 375,0, 2 4E 29; 
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and  the  first  command  given  is:  delete  f ield (2) ="silver" .  The 

resulting  vector  would  be: 

planes, jet, twosea ter , 150, 375,0. 2 4E0 9; 

If  the  next  command  given  were:  delete  field (4) ="150".  the  vector 
becomes : 

planes, jet, twosea ter , 375,0. 24E0 9; 

If  the  last  command  given  was:  delete  f ield (2) .  then  all 

vectors  would  have  fieid(2)  deleted. 
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3.8  Insert  Command 

insert  f ield(i) =<string>  <string>. 

where 

1)  field(i)  -  refers  to  the  i-th  field  in  the  vector.  The  i 

should  be  enclosed  in  parentheses. 

2)  <string>  -  is  a  string  of  ASCII  characters  enclosed  within 

double  quotes.  If  the  first  string  within  quotes 
is  then  all  field(i)'s  will  have  the  second  string  inserted  before 
them. 


Command  Description: 

The  "insert"  command  is  used  to  insert  fields  in  a  vector.  This 
command  states  that  the  second  string  of  characters  "string"  is  to  be 
inserted  before  the  i-th  field  containing  a  certain  string  so  that  the 
string  originally  located  in  the  i-th  field  is  relocated  to  the  i+1 
field  and  the  i-th  field  will  contain  the  new  string.  It  is  important 
to  remember  that  all  insertions  are  relative  to  the  current  version  of 
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For  example: 

Suppose  the  original  vector  given  is: 

cat,str ioes, grey, bobbed, 32. 5 ,2. 97,15; 

The  command:  insert  f ield ( 3 ) ="g r ey"  "multitoed".  would  yield  the 

following  vector: 

cat,str ipes, multi toed ,grey , bobbed, 32. 5,2.97,15; 

If  the  next  command  given  were:  insert  field (6) =" 32. 5"  "2",  the 

following  vector  would  be  produced: 

cat,str ipes, mult itoed,grey  bobbed , 2 , 32. 5 , 2. 97 , 15 ; 

If  the  next  command  given  were:  insert  field(2)="*"  "blue-eyed", 
the  following  vector  would  be  produced: 

cat,blue-eyed,s tripes, multi  toed, grey, bobbed, 2, 32. 5,2. 97,15; 
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3,9  Move  Command 

move  field < i) =<str ing>  to  <loc>, 

where 

1)  field(i)  -  refers  to  the  i-th  field  in  the  vector.  The  i 

should  be  enclosed  in  parentheses, 

2)  <string>  -  is  a  string  of  ASCII  characters  enclosed  within 

double  quotes.  If  the  string  within  the  quotes  is  then 

all  field(i)'s  will  be  moved  to  the  position  specified  by 
<loc> . 

3)  <loc>  -  consists  of  one  of  the  following: 

a)  head  -  refers  to  the  first  field  in  the  vector. 

b)  tail  -  refers  to  the  last  field  in  the  vector. 

Command  Descr iption: 

The  "move"  command  is  used  to  move  a  field  within  a  vector  to  either 
the  head  or  tail  of  the  vector.  This  command  states  that  the  i-th 
field  containing  a  certain  string  is  to  be  repositioned  to  either  the 
head  or  the  tail  of  a  vector.  As  mentioned  earlier  in  the  "change", 
"insert"  and  "delete"  commands,  all  moving  of  fields  is  relative  to 
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the  current  version  of  the  vector. 

For  example:  Suppose  the  original  given  vector  is: 

tanks , ,100E-05,2.68,62,beta; 

and  the  first  command  given  is:  move  f ield (5) ="beta"  to  head, 

resulting  vector  would  look  like  this: 

beta,tanks,.100E-05,2.68,62; 

If  the  second  command  given  were:  move  f ield (3) =” . 100E-05”  to 

the  resulting  vector  would  look  like  this: 

beta,tanks,2.68,62,.100E-05; 

If  the  third  command  given  were:  move  f ield ( 2) =" *"  to  head 
vector  would  look  like  this: 


the 


tail. 


the 


tanks,beta,2.68,62/,100E-05; 
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3.10  Extract  Command 

extract  {'}(<data>  {<position>}  <rel  op>  <value> 

{&  {*}(<data>  {<position>}  <rel  op>  <value>)} 

{!  {“}(<data>  <positlon>}  <rel  op>  <value>)}) 
class=<str ing> . 

where 

1)  anything  enclosed  within  braces  is  an  optional  string.  Not 
all  "extract"  commands  will  be  as  complicated  as  the  format 
illustrated  above, 

2)  parentheses  are  optional  except  when  an  integer  follows  the 
word  "field"  or  "keyword".  In  this  instance,  parentheses  are 
required  around  the  integer.  If  parentheses  are  used,  they  must  be 
in  pairs, 

3)  the  symbol  is  optional  and  means  "not", 

4)  there  is  no  limit  to  the  occurrences  of  the  strings 

"&  <data>  <position>  <rel  op>  <value>"  and 
"I  <data>  <position>  <rel  op>  <value>". 
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5)  the  string  "class="  is  a  required  string.  It  refers  to  the 
class  name  given  to  the  extracted  vector, 

6)  <string>  -  is  a  string  of  ASCII  characters  enclosed  within 
double  quotes. 

Command  Description : 

The  "extract"  command  is  used  to  extract  certain  vectors  from  the 
edited  data  file  and  relocate  them  into  a  user-named  file  for 
subsequent  input  to  MOOS,  The  extracted  vectors  are  placed  into  the 
file,  located  in  the  user's  working  directory,  which  was  specified 
earlier  in  CTS  with  the  "-new"  argument.  The  extractions  are  based 
upon  fulfillment  of  certain  criteria  found  in  the  Boolean  expressions 
in  the  "extract"  commands.  The  extracted  vectors  are  placed  into 
classes  specified  in  the  "extract"  command.  In  the  following  example 
all  the  extracted  vectors  have  been  categorized  into  the  same  class, 
"vehicles".  There  could,  however,  be  many  vectors  extracted  with  many 
different  classes  created.  Note  in  the  syntax  above,  that  the  star 
convention  used  in  the  commands  "move",  "insert",  and  "delete"  is  not 
useable  in  the  "extract"  command.  Also,  "and"  is  represented  as  "&" 
and  "or"  is  represented  as  "|"  in  both  the  syntax  diagrams  this 
command. 


For  example: 
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jeeps, wheels, 01 25, 4. 23GE-14 ,5.605 


beta, tanks, 2. 68, 62 


If  the  first  "extract"  command  given  is 


extract  keyword ( I )=" jeeps"  |  keyword(i) 


the  extracted  vectors  based  upon  this  command  would 


vehicle , jeeps, wheels ,0125,4.236E-14,5,6U5 


If  the  next  command  given  is 


tank 
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this  vector  would  be  extracted: 

veh ic le, be ta, tanks,  2. 63,62, . IEUE-05; 

leaving  only  one  vector  regaining  in  the  edited  data  file: 

cat , str iped, multi toed, 32.5,2,97;/* 

It  is  important  to  note  that  the  word  "data"  in  the  extract  command 
does  not  have  a  substring  position  following  it.  Only  the  words 
"field(i)",  "keyword(i)"  and  a  user-defined  keyword  are  allowed  to  use 
a  substring  position. 
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3,11  Command  Summary 

To  summarize  the  commands,  there  are  four  "edit"  commands  and  one 
"extract"  command.  The  four  "edit"  commands  are  "change",  "insert", 
"mgve",  and  "delete".  The  only  "extract"  command  is  "extract".  An 
example  using  one  of  each  command  follows. 

Suppose  the  original  data  file  consists  of  the  following  vectors: 

cats,grey,blue,4,4,20; 
mules, brown, blue, 12, 4, 50; 
cycles,fourspeed,sixcylinder ,25,120,12.25; 
trainer , jet, white, 115,250, . 1B5E-06; 
f ighter , jet, green, 375,115, . 82E-02;/* 

If  the  following  commands  were  given  to  CTS: 

change  field(3)  7="inder"  to  "". 
move  field (2) =" jet"  to  head, 
insert  f ield (3) ="white"  "strmline". 
delete  f ield (4) ="white" . 

extract  keyword ( 2) =" jet"  I  data>75  class=" vehicle" . 


the  results  would  be  as  follows: 
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1)  The  first  command  "change"  would  examine  each  vector  and  edit  any 
that  it  pertained  to.  The  only  one  it  pertains  to  is  the  third  vector 
in  the  file.  The  resulting  vector  is: 


cy c les, four speed, sixcyl ,25,120,12.25; 


2)  The  next  command  "move"  examines  each  vector  and  can  operate  on  two 
vectors.  The  new  vectors  are: 


j et, trainer, white, 115, 250, , 105E-0 6; 
jet, fighter,green, 375,115, . 825E-02 ; 

3)  The  third  command  "insert"  pertains  to  only  one  vector.  The  new 
vector  is: 

trainer,jet,strmline,white,115,250,,105E-06; 

4)  The  fourth  command  "delete"  pertains  to  only  one  vector  creating 
the  vector: 

trainer ,jet,str ml ine, 115, 250, . 105E-06; 
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veh i cle, eye les, four speed, sixcyl, 25,120,12,25; 
vehicle, jet , trainer ,strmline, 115,250,, 10 5E-C6 
vehicle ,  jet ,  fighter  ,g  reen, 375,115, , 8  2E-C2 ; 

In  this  command,  any  vector  having  either  a  keyword (2) 
data>75  will  be  extracted.  The  vectors  remaining  in  the 
file  are; 


"jet"  or  any 
edited  data 


cats, grey, blue, 4, 4, 20; 
mu les, brown, blue, 12, 4, 5C; 
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3,12  Modes  of  Operation 

It  was  rrentioned  earlier  that  CTS  could  be  used  interactively  or 
in  batch.  In  the  interactive  mode,  the  user  must  be  at  the  terminal 
keyboard.  In  the  batch  mode,  all  data  is  read  from  a  file. 

As  CTS  scans  for  arguments  in  the  interactive  mode,  the  user  will 
be  asked  for  the  arguments  if  none  have  been  found  in  the  call.  He  is 
then  asked  for  the  number  of  keywords  .  If  the  number  is  greater  than 
zero,  the  user  is  asked  to  input  each  keyword  and  subfields  of  the 
keyword,  if  any.  At  this  stage,  CTS  is  ready  for  receiving  the 
commands.  If  both  editing  and  extraction  commands  are  used,  all 
editing  commands  must  be  input  first.  The  user  will  be  queried  for  a 
command,  which  will  be  input  one  line  at  a  time,  regardless  of  the 
length  of  the  command.  It  is  permissible  to  have  more  than  one 
command  per  line,  and  a  command  which  occupies  more  than  one  line. 
CTS  will  process  each  command  and  upon  completion  of  processing  a 
command  line,  the  user  is  queried  for  a  new  command  line.  This 
cycle  continues  until  CTS  encounters  the  word  "end"  which  indicates 
that  all  commands  have  been  entered.  If  while  processing  a  command, 
an  error  is  detected,  the  user  will  be  immediately  notified  of  the 
error,  told  where  the  error  occurs  in  the  line,  and  either  asked  to 
correct  it  or  told  of  its  correction.  Processing  will  then  continue. 

The  user  has  two  options  in  terminating  commands.  The  first 
option  is  "quit"  which  means  to  terminate  processing  of  the  current 
command,  skip  to  the  next  command,  and  begin  processing  the  new 
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command.  The  second  option  is  "cease"  which  indicates  that  processing 
of  all  commands  and  consequently,  the  routine  process_commands ,  are  to 
terminate. 

As  mentioned  earlier,  the  only  time  the  user  may  use  "cease"  or 
"quit"  is  when  an  error  has  been  corrected  in  the  command  line  and  the 
user  is  queried  as  to  the  acceptability  of  the  corrected  command.  If 
the  user  indicates  that  the  corrected  command  is  unacceptable,  then  he 
will  be  asked  to  enter  either  "cease"  or  "quit". 

In  the  batch  mode,  as  stated  above,  all  data  is  read  from  a 
file.  If  while  processing,  an  error  is  detected,  the  error  and  its 
location  in  the  line  are  written  into  a  file  for  the  user  to  refer  to 
at  the  termination  of  CTS,  The  processor  will  continue  processing  the 
commands  until  it  encounters  an  uncor rectable  error  or  it  gets 
completely  lost  in  parsing  the  commands,  preventing  it  from 
continuing.  If  this  occurs,  the  program  will  automatically  terminate. 

The  format  for  the  input  argument  file  is  shown  in  a  few  examples 
below.  The  various  examples  illustrate  the  different  ways  the  argument 
file  can  be  set  up. 

Example  1: 

-noquery 
-old  data_file 
-save  newfile 
-new  newfilel 
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-args 

-man 

-table 


3 

color 

shape 

texture 

no 

no 

extract  keyword  ( 1)  ="blue"  class="sarr,e"  . 

extract  (keyword (1) ="blue"  &  keyword ( 3) ="hard")  class=”special ” , 
end 


Example  2: 

-noguery 

-noxqt 

-check 


3 

skip  nsubs 

no 

no 
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move  f ield ( 3) ="rat"  to  head,  delete  f ield ( 1 ) ="r at" . 

insert  f ield (2) ="pie"  "grasshopper", 

end 

Example  3: 

-noquery 

-noxqt 

-old  data_file 
-save  nffile 
-new  nffilel 
-panic 

-args  -map  -table 

3 

skip 

2,4 

3,1 

2 

no 

no 

extract  field (1) ="blue"  class="f irst" . 
extract  data>6,5  class="second“ ,  end 
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4  RDE  FUNCTIONAL  DESCRIPTION 

4.1  I/C  Module  Introduction 

An  I/O  module  was  written  in  order  to  transmit  the  correct 
control  characters  required  to  turn  the  Tektronix  4014-1  screen  on  or 
off  during  data  transmission,  or  start  and  stop  a  specific  remote 
(peripheral)  device  under  program  control.  This  I/O  module,  called 
"remote_data_" ,  generates  an  I/O  switch  which  then  controls  the  data 
transmitted  through  the  terminal  system. 

"An  I/O  switch  is  like  a  channel  in  that  it  controls 
the  flow  of  data  between  program  accessible  storage  and 
devices,  files,  etc.  The  switch  must  be  attached  before  it 
can  be  used.  The  attachment  specifies  the  source/target  for 
I/O  operations  and  the  particular  I/O  module  that  performs 
the  operations."  [1,  Section  5] 

The  attachment  of  the  I/O  switch  is  performed  when  the  program 
"remote_to_multics  (rtom)"  or  "irultics_to_r  emote  (mtor)"  calls  the 
MULTICS  system  subroutine  "iox_$attach_ioname"  with  the  name  of  the 
I/O  module  and  its  related  remote  device  name.  This  attachment 
mechanism  is  described  further  under  the  remote_data_attach  program 
documentation,  below. 
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The  attachment  of  an  I/O  switch  generates  an  associated  I/O 
control  block  (iocb)  which  is  used  by  the  I/C  module  to  determine  what 
operation  is  to  be  performed  when  called. 

"The  principal  components  of  an  I/O  control  block  are 
the  pointer  variables  and  entry  variables  whose  values 
describe  the  attachment  and  opening  of  the  I/O  switch.  There 
is  one  entry  variable  for  each  I/O  operation  with  the 
exception  of  the  attach  operation,  which  does  not  have  an 
entry  variable  since  there  can  be  only  one  attach  entry 
point  in  the  I/O  module.  To  perform  an  I/O  operation  through 
the  switch,  the  corresponding  entry  value  in  the  control 
block  is  called."  [4,  Section  4] 

The  location  of  the  iocb  is  returned  as  the  pointer  variable 
"iocb_j?tr"  by  the  iox_$attach_ioname  system  subroutine.  This  pointer 
is  used  in  all  subsequent  calls  to  any  iox_  subroutine  to  identify  the 
I/O  module  and  its  internal  entries.  Thus,  any  call  to  an  iox_ 
subroutine  which  uses  the  iocb_ptr  variable  will  cause  the  appropriate 
related  I/O  module  entry  to  perform  the  specified  work. 

For  example,  once  the  I/O  switch  has  been  opened  for  sequential 
output,  a  call  by  mtor  to  iox_$wr ite_ record  with  the  iocb_ptr,  will 
cause  the  remote_data_  I/O  module  entry  "wr ite_f irst_r ecord"  to  be 
executed.  This  is  a  result  of  the  I/O  module  iocb__ptr  variable  for  the 
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write_record  routine  being  specified  as: 

" iocb_ptr->iocb. wr ite_record  =  wr ite_f irst_r ecord ; " 

All  functions  that  are  performed  by  specific  entries  in  the  I/O  module 
are  thus  indicated  in  the  iocb.  The  particular  pointer  values  for  each 
iocb  entry  is  further  described  in  the  following  documentation,  and  in 
greater  detail  in  the  program  listing  documentation. 

The  MULTICS  control  language  has  been  utilized  to  the  fullest 
possible  extent  in  the  development  of  the  RDE  system  therefore  a 
working  knowledge  of  the  MULTICS  environment  is  essential  for  anyone 
considering  modification  of  this  system.  The  user  is  referred  to  the 
manuals  listed  in  Appendix  B  for  a  more  complete  description  of  the 
MULTICS  system  and  its  usages. 

Information  regarding  the  system  subroutines  "iox_"  may  be  found 
in  references  [3]  and  [4],  During  testing,  the  MULTICS  command 
"io_call"  is  used  to  verify  the  various  I/O  module  entries.  For 
further  information  on  the  use  of  this  command  consult  [2], 
Additionally,  MULTICS  system  error  codes  of  the  form  "error  table  " 
were  used,  and  their  description  may  be  found  in  [1],  Finally,  the 
user  is  referred  to  the  Tektronix  manuals  listed  in  Appendix  B  for 
further  information  regarding  the  Tektronix  devices  and  related 
required  control  characters. 
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remote_to_multics ,  rtom 


begin  rtom; 

get  input  renote_device  name; 

get  output  ASCII  multi-segment  file  (msf)  name; 
open  output  file; 

if  remote_device  =  "4922"  then  get  disk  number; 

attach  input  switch  "data_input"  to  "r emote_data_"  I/C  module; 

open  input  switch; 

if  remote_device  =  "4921"  or  "4922"  (disk)  then  do; 
instruct  user; 
get  starting  track  number; 
get  starting  sector  number; 
end; 

if  remote_device  =  "4923"  (cassette)  then  instruct  user; 
if  remote_device  =  "tape"  then  do; 

query  user  for  attach  description  parameters; 
edit  attach  description; 

attach  output  switch  "tapefile"  to  "tape_ansi_"  I/O  module; 
open  the  tapefile  switch; 
end ; 
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get  pointer  to  start  of  wsf  buffer; 

read  data  fron  remote_device  or  tape  through  appropriate  switch; 

append  data  to  rasf  buffer; 

close  input  switch (s) ; 

detach  input  switch(s); 

set  msf  bit  count; 

close  tr.sf; 

write  statistics; 


end  rtom; 
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4.3  multics_ to_remote,  mtor 

Entry:  multics_to_remote,  mtor 

Descr iption: 

begin  mtor; 

get  output  remote_device  name; 

get  input  ASCII  multi-segment  file  (msf)  name; 

if  remote^ device  *  "4922"  get  disk  number; 

attach  output  switch  "data^output"  to  Mrei?.ote_data_"  I/O  module 
open  output  switch; 

if  remote_device  =  "4921“  or  "4922"  (disk)  then  do; 
instruct  user; 
get  starting  track  number; 
get  starting  sector  number; 
position  seek  head; 
end ; 

if  remote_device  =  "4923"  (cassette)  then  do; 

instcuct  user; 
end ; 

if  reinote_device  =  "tape"  then  do; 

query  user  for  attach  description  parameters; 
edit  attach  description; 

attach  input  switcfl  "tapefile"  to  "tape_ansi_"  I/O  module; 
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open  "tapefile"  switch; 
end ; 

open  msf; 

•get  pointer  to  msf  buffer; 

write  data  from  msf  to  remote_device  or  tape  through  appropriate  switch 
close  msf; 

close  output  switch (s); 
detach  output  switch(s); 
write  statistics; 
end  mtor; 


FINAL  REPORT 


REMOTE  DATA  ENTRY 

SECTION  4  -  RCE  FUNCTIONAL  DESCRIPTION 

4.4  remote  data  attach 


Entry  Name; 


remote  data  attach 


Usag  e : 

declare  iox_$attach_ioname  entry  (char(*),  ptr,  char(*),  fixed 
bin  (35)); 

call  iox_$attach_ioname  (switch_name,  iocb_ptr, 

attach_descr iption,  ertor_code) ; 

switch_name  "data_input"  for  rtom,  "data_output"  for  mtor 

iocb_ptr  switch's  control  block  pointer  (Output) 

attach_descr ipt ion  "remote_data_  XXXX",  where  "XXXX"  is  "4921", 

”4922",  "4923”,  or  "tape" 

error_code  system  status  code  (Output) 

The  attach  entry  is  the  most  crucial  operation  of  the  I/O  module. 
It  must  set  up  and  initialize  the  iocb,  and  return  a  pointer  to  the 
iocb  (the  iocb_ptr)  for  use  by  all  subsequent  iox__  calls. 

The  user  program  rtom  or  mtor  must  call  the  system  subroutine 
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iox— $attach__ioname  with  the  value  for  the  arguments  as  described 
above.  The  system  will  then  attempt  to  locate  the  attach  routene  by 
concatenating  the  word  "attach"  to  the  name  of  the  I/C  module.  Thus 
for  the  remote_data_  I/O  module,  the  attach  routine  is 
" r emote_data_attach" .  This  attach  routine  must  have  a  very  specific 
entry  declration  in  order  to  be  located  and  attached  correctly. 

The  format  for  this  entry  is: 


module_nameattach :  entry  (iocb_ptr,  option_array ,  er ror_switch, 

error_code) ; 

Arguments : 

iocb_ptr  switch's  control  block  pointer  (Input) 

option_array  device_type  attach  argument  (Input) 

error_switch  initiates  verbose  error  messages  (Input) 

error_code  system  status  code  (Output) 

Description : 
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Called  by  the  system  subroutine  " iox_$attach_ioname"  or  the 
system  command  "io_call  attach"  to  attach  the  I/O  switch. 

If  the  device  type  is  missing,  the  error_code  is  set  to 

er ror_table_$noarg ,  and  the  entry  returns. 

If  the  iocb_ptr  is  unattached,  the  error_code  is  set  to 

er ror_table_$not_attached ,  and  the  entry  returns. 

If  the  device_type  is  incorrect,  the  error_code  is  set  to 

errpr_table_$bad_arg ,  and  the  entry  returns. 

If  no  errors  are  detected,  then  the  attach  description  is 
generated,  the  iocb  pointers  are  set  to  the  appropriate  I/O  module 
entries,  and  the  control  is  returned  to  the  calling  program.  See  the 
program  listing  documentation  for  specific  and  detailed  information. 
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* 

4.5  open_device 

Entry:  open_devi.ce 

Usage : 

declare  iox_$open  entry  (ptr,  fixed  bin,  bit  (1)  aligned,  fixed 
bin  (35 J ) ; 

call  iox_$open  (iocb_ptr,  open_mode,  extend_option,  error_code) ; 

Arguments: 

\ 

iocb_ptr  switch's  control  block  pointer  (Input) 

open_mode  sequential/direct  input/output  (Input) 

extend_option  always  "0"b  (Input) 

error_code  system  status  code  (Output) 

Description: 

Called  by  the  system  subroutine  "iox_$open"  or  the  system  command 
"io_call  open"  to  open  the  switch  designated  by  the  iocb_ptr. 
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If  the  open  mode  is  incompatible  with  the  attached  device  type, 
the  error_code  is  set  to  error_table_$bad_mode,  and  the  entry  returns. 

If  the  switch  is  not  attached,  the  error_code  is  set  to 

er ror_tafcle_$not_attached ,  and  the  module  returns. 

If  the  switch  is  not  closed,  the  error_code  is  set  to 

er ror_table_$not_closed ,  and  the  module  returns. 

Otherwise,  the  open  description  is  generated,  the  iocb  entries 
are  set  to  additional  I/O  module  entries,  and  the  control  is  returned 
to  tne  calling  program.  See  the  program  listing  documentation  for 
detailed  information. 
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4.6  terminal_modes 

Entry:  terminal_modes 

Usage: 

declare  iox_$modes  entry  (ptr,  char(*),  char(*),  fixed  bin  (35)); 

call  iox_$rnodes  (iocb_ptr,  new_modes,  old_modes,  error_code)  ; 

Arg  uments : 

iocb_jptr  switch's  control  block  pointer  (Input) 

new_modes  mode  string  (Input) 

old_modes  mode  string  (Output) 

error_code  system  status  code  (Output) 

Description : 

Called  by  the  system  subroutine  "iox_$modes"  or  the  system 
command  "io_call  modes"  to  set  the  modes  for  the  switch  designated  by 
the  iocb_ptr  (see  the  set_tty  active  function  for  a  discussion  of 
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inodes)  , 

If  the  attach  description  has  not  been  created,  the  module 
returns  with  an  error  code  of  error_tble_$not_attached. 

If  the  switch  is  not  open,  the  error  code  is  set  to 
er ror_table_$not_open,  and  the  module  returns. 

If  the  external  static  switch  "rde_debug"  is  on,  no  modes  are 

set. 

Otherwise,  this  module  calls  the  system  subroutine  iox_$modes 
with  the  iox^$usec_output  iocb_ptr  to  set  the  user  terminal  modes  (see 
set_tty) ,  and  returns  to  the  calling  program. 
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4,7  device_control 

Entry:  device_control 

Usage : 


declare  iox_$control  entry  (ptr,  char(*),  ptr,  fixed  bin  (35)); 


call  iox_$control  (iocb_ptr,  order,  info_ptr,  error_code) ; 


Arguments : 


iocb_ptr 

switch's  control  block 

pointer  (Input) 

order 

device 

control  command 

(Input) 

inf o_ptr 

unused 

(Input) 

er ror_code 

system 

status  code  (Output) 

Description : 


Called  by  the  system 
command  "io_call  control"  to 
I/O  switch  designated  by  the 


subroutine  "iox_$control"  or  the  system 
perform  a  specified  control  order  on  the 
iocb_ptr , 
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If  the  order  is  incorrect,  the  error_code  is  set  to 
error_table__$no_operation,  and  the  entry  returns. 

An  order  of  "next_disk"  starts  the  4921/2  disk  device,  instructs 
the  user  to  insert  the  next  disk,  calls  iox_$seek_key  (see  disk_seek 
entry) ,  and  returns. 

An  order  of  "next_4923"  stops  the  4923  device,  instructs  the  user 
to  insert  the  next  cassette,  calls  iox_$control  with  the  order 
"start_4923" ,  and  returns. 

An  order  of  "on"  sets  the  external  static  screen  switch  to  1  and 
returns. 

An  order  of  "off"  sets  the  external  static  screen  switch  to  0, 
and  returns. 
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4.8  disk  seek 


Entry : 


disk  seek 


Usage : 


declare  iox_$seek _key  entry  (ptr,  char (256)  varying,  fixed  bin 
(21)  ,  fixed  bin  (35) ) ; 


call  iox_?seek_key  (iocb_ptr,  key,  rec_len,  error_code); 


Arguments: 


iocb_ptr 


switch's  control  block  pointer  (Input) 


disk,  track,  and  sector  values  (Input) 


rec  len 


set  to  128  on  return  (Output) 


error  code 


system  status  code  (Output) 


Description: 


Called  by  the  system  subroutine  "iox_$seek_key "  or  the  system 
command  "io_call  seek_key"  to  position  the  4921/2  floppy  disk  to  the 
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specified  track  and  sector. 

If  the  key  is  incorrect,  the  error_code  is  set  to 
error_table_$improper_data_format,  and  the  entry  returns. 

The  seek  command  is  given  by  the  F,SC  (escape)  &  sequence, 
followed  by  an  ASCII  control  character  and  three  track-sector  position 
characters.  The  ASCII  control  characters  are  selected  from  the 
characters  33  (decimal)  to  92  (decimal)  based  upon  1)  the  disk  number, 

2)  whether  the  screen  is  to  display  the  data  during  transmission,  and 

3)  whether  the  function  is  read  or  write.  The  track-sector  position 
characters  are  formed  from  the  numbers  0(5  through  63  for  the  track 
location,  and  an  ASCII  character  from  65  (decimal)  to  96  (decimal)  for 
the  sector  as  shown  in  16],  Refer  to  the  program  listing  documentation 
for  a  more  detailed  description  of  the  seek  command  generation. 

After  positioning,  the  status  of  the  remote  device  is  checked,  if 
the  status  code  indicates  that  the  disk  is  wr ite_protected,  then  the 
error_code  is  set  to  er ror_table_$device_not_usable,  and  the  entry 
returns. 
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4,9  read_f irst_record 

Entry:  read_f irst_record 

Usage: 

declare  iox_$ r ead_r ecor d  entry  (ptr,  ptr,  fixed  bin  (21), 
bin  (21),  fixed  bin  (35)); 

call  iox_$read_r ecord  (iocb_ptr,  buffer_ptr,  bytes_to 
bytes_read,  error_code) ; 


Arguments: 


iocb_ptr 


buf f er_ptr 


by tes_to_r eao 


by tes_r ead 


error  code 


switch's  control  block  pointer  (Input) 


data  buffer  location  (Input) 


buffer  length  (Input) 


how  many  were  read  (Output) 


system  status  code  (Output) 


fixed 


read , 
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description: 


Celled  by  the  system  subroutine  "iox_$read_record"  or  the  system 
command  "io_call  read_record"  to  read  stream  characters  from  the 
remote  device. 

This  entry  attaches  a  switch  named  " input_stream"  with  the  attach 
description  "record_streair._  user_input"  as  shown  in  [4],  Subsequent 
reads  are  through  this  switch  in  order  to  remove  the  CR-LF  transmitted 
by  the  Tektronix  device.  An  additional  LF  is  removed  by  "flushing" 
the  I/O  buffers  after  the  read. 

If  the  remote  device  is  the  4923  tape  cassette  drive,  the  ready 
mode  is  turned  off,  the  user  is  requested  to  turn  on  the  device,  and 
the  first  read  is  delayed  for  20  seconds  to  permit  the  user  to  prepare 
the  device. 

The  iocb  entry  for  read_f irst_record  is  changed  to  use 
read_next_r ecord  in  subsequent  calls. 

For  a  more  detailed  explanation  of  the  read  record  entry,  refer 
to  the  program  listing  documentation. 
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4, la  read  next  record 


Entry: 


read  next  record 


Usage : 


declare  iox_$r ead_r ecord  entry  (ptr,  ptr,  fixed  bin  (21)  ,  fixed 
bin  (21),  fixed  bin  (35)); 


call  iox_$read_^record  (iocb_ptr,  buffer_ptr,  by tes_to_r ead , 
bytes_read,  error_code) ; 


Arguments : 


iocb_ptr 


switch '  s-  control  block  pointer  (Input) 


buffer_ptr  data  buffet  location  (Input) 


bytes_to_r ead  buffer  length  (Input) 


bytes_read  how  many  were  read  (output) 


error_code  system  status  code  (Output) 
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Cescr iption : 

Called  by  the  system  subroutine  "iox_$read_record"  or  the  system 
command  "io_call  read_record"  to  read  the  next  (second  and  subsequent) 
record  from  the  remote  device  by  transmitting  the  appropriate  command 
characters  before  reading. 

Characters  following  the  terminating  symbols  "/*■  are  effectively 
deleted  by  returning  a  reduced  byte_count.  A  block  of  all  stars  ("*") 
signals  the  end  of  file,  and  causes  the  bytes_read  count  to  be  set  to 
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4.11  write  first  record 


Entry  wr ite_f ir st_r ecord 

Usage : 

declare  iox_$wr ite_r ecord  entry  (ptr,  ptr,  fixed  bin  (21),  fixed 
bin  (35)); 

call  iox_$wr ite_record  (iocb_ptr,  buffer_ptr,  by tes_to_wr ite, 
error  code) ; 


Arguments; 


iocb_ptr 


buf fer_ptr 


by tes_to_wr ite 


error  code 


switch's  control  block  pointer  (Input) 


data  buffer  location  (Input) 


characters  to  output  (Input) 


system  status  code  (Output) 
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command  "io_call  wr ite_r ecord"  to  write  a  record  at  the  first  location 
on  t£e  remote  device. 

This  entry  attaches  a  switch  named  "output_stream"  with  the 
attach  description  "r ecord_str eam_  user_output  -nnl"  as  shown  in  [4], 
Subsequent  writes  are  then  directed  through  this  switch  in  order  to 
remove  the  CR-LF  transmitted  by  the  Tektronix  4014-1  device. 

If  the  remote  device  is  the  4923  cassette  tape  drive,  the  ready 
mode  is  turned  off,  the  user  is  instructed  to  turn  on  the  device,  and 
the  first  write  is  delayed  for  20  seconds  to  permit  the  user  to  turn 
on  the  device. 

If  the  by tes_to_wr ite  is  less  than  128,  "*"'s  are  written  as  pad 
characters. 

Data  is  written  to  the  4923  tape  cassette  device  in  128  character 
blocks  consisting  of  126  data  characters,  a  "stop  read"  control 
character  (DC3) ,  and  a  "dispensable"  character  (LF) . 

The  DC  3  character  signals  the  4923  device  to  stop  data 
transmission  when  reading  until  a  "start  read*  control  character  (DC1) 
is  detected.  The  LF  character  signals  the  Tektronix  4014-1  terminal  of 
transmission  completion. 
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4.12  wr ite_next_r ecord 

| 

Entry  wr ite_next_r ecord  . 

Usage :  | 

declare  iox_$wr ite_r ecord  entry  (ptr,  ptr,  fixed  bin  (21),  fixed  > 

bin  (35)); 

call  iox_$wr ite_record  (iocb_ptr,  buffer_ptr,  by tes_to_wr ite, 
error  code) ; 


Arg  uments : 


iocb_ptr 


buf fer_ptr 


tytes_to_wr ite 


error  code 


switch's  control  block  pointer  (Input) 


data  buffet  location  (Input) 


characters  to  output  (Input) 


system  status  code  (Output) 


I 


t 


Descr iption : 


Called  by  the  system  subroutine  "iox  $write  record"  or  the  system 
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command  "io_call  wr  ite_r  ecord"  to  write  a  record  at  the  next 
sequential  location  on  the  remote  device. 

If  the  by tes_to_wr ite  is  less  than  128,  "*"'s  are  written  as  pad 
cnaracters. 

Data  is  written  to  the  4923  tape  cassette  device  in  128  character 
blocks  consisting  of  126  data  characters,  a  "stop  read"  control 
character  (DC3) ,  and  a  "dispensable"  character  (LF) . 

The  DC  3  character  signals  the  4923  device  to  stop  data 
transmission  when  reading  until  a  "start  read"  control  character  (DC1) 
is  detected.  The  LF  character  signals  the  Tektronix  4014-1  terminal 
that  transmission  is  complete. 
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4.13  close_device 

i 

* 

Entry:  close_device 

Usage : 

declare  iox_$close  entry  (ptr,  fixed  bin  (35)); 

call  iox_$close  (iocb_ptr,  error_code) ; 

Arguments: 

/ 

iocb_ptr  switch's  control  block  pointer  (Input) 

error_code  system  status  code  (Output) 

Description: 

Called  by  the  system  subroutine  " iox_$close"  or  the  system 
command  "io__call  close"  to  close  the  remote  device. 

A  file  terminator  block  of  126  stars  ("*"),  a  device  stop  control 
character  (DC 4) ,  and  a  LF  char  is  written  as  the  last  data  block.  This 
is  used  to  recognize  end-of-file  during  later  reads. 
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The  appropriate  ASCII  control  character(s)  are  transmitted  to 
stop  and  free  the  remote  device,  turn  the  screen  on  if  it  was  off, 
close  the  I/O  switch(s),  update  the  iocb,  set  the  open  description  to 
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4,14  detach 

Entry;  detach 

Usage : 

declare  iox_$detach_iocb  entry  (ptr,  fixed  bin  (35)); 

call  iox_$detach_iocb  (iocb_ptr,  error_code) ; 

Arguments : 

iocb— ptr  switch's  control  block  pointer  (Input) 

error_code  system  status  code  (Output) 

Description: 

Called  by  the  system  subroutine  " iox_$detach_iocb"  or  the  system 
command  "io_call  detach_iocb"  to  detach  the  i/o  switch  designated  by 
the  iocb_ptr. 


The  attach  description  is  set  to  null,  and  the  entry  returns 
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4.15  maketree 


Entry:  maketree 

Description: 

begin  make tree; 

get  input  ASCII  data  file  name; 
get  number  of  keywords; 
query  user  for  presence  of  class_id's; 
for  each  vector  do; 
get  class_name; 
skip  keyword ( s ) ; 
get  or  generate  class_id; 

if  class_narre  exists  in  class_list  then  increment  vector  count; 
else  allocate  next  entry  aid  initialize; 
open  temp  class_file  (new  or  append) ; 
convert  vector  data  to  float ing_point 
write  floatingpoint  data  to  temp  file; 
close  temp  class  file; 
end ; 

open  treedata  file; 

copy  class  header  info  from  linked  class_list  to  treedata  file; 

copy  class_id  and  f loating_point  data  from  each  temp  file  to  treedata  file; 

delete  each  temp  file; 
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close  treeaata  file; 
call  treeiput; 
end  maketcee; 
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4.16  treeiput 

Subroutine ;  treeiput 

Call :  call  treeiput  (treenare) ; 


Arguments: 

treename  eight  character  nare  of  the  MOOS  tree  to  be 

created 


Input  rile: 

A  file  named  "treedata"  must  be  created  in  the  process  directory 
prior  to  calling  treeiput.  The  format  of  the  "treedata"  file  is  shown 
in  Figure  d. 

Output  File : 

The  "sysdata"  file  reflects  the  addition  of  a  new  tree  in  the 
MOOS  system,  a  treename  file  is  created,  and  a  dataclass  file  is 
created  for  each  class  stored  in  "treedata". 
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Descr iption : 

The  program.  treeiput  creates  a  MOCS  tree  named  treename  from  the 
data  stored  in  the  process  directory  file  "treedata".  The  treeiout 
program  ray  accept  trees  with  greater  than  1  BO  dimensions.  The  chief 
difference  between  the  "treedata"  format  utilized  by  treeiput  and  the 
"filedata"  format  utilized  by  fileinput  is  that  each  vector  in  the 
"treedata"  file  has  a  unique  user-supplied  identification  number. 

For  a  more  detailed  description  of  the  operation  of  the  treeiput 
program,  see  the  program;  listing  documentation.  Also,  see  the 
description  of  the  following  treeiput$treeoput  program  documentation. 
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Figure  3  TREEDATA  file  format 
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4.17  dumptree 

Entry :  dump tree 


Eescr iption : 


begin  duiT'ptree; 

get  input  MOOS  tree  file  nar.e; 
get  output  ASCII  file  name; 
call  treeoput; 

query  user  to  write  class_id's; 
open  input  file; 
open  output  file; 
read  ndims; 
read  nclasses; 
do  loool  =  1  to  nclasses; 
read  class_najne ; 
read  class_count; 
allocate  class  entry; 
end ; 

do  loop2  =  1  to  nclasses; 
get  class_ count; 
do  loop3  =  1  to  class_count; 

write  class_naiT!e  to  ASCII  file; 

write  class_id  to  ASCII  file  is  requested; 
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do  loop4  =  1  to  ndims; 

read  f loating_point  word; 
write  ASCII  chars  to  ASCII  file; 
end; 
end ; 
end; 

write  "/*"  to  ASCII  file; 
close  files; 
end  dumptree; 
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' 


the  user’s  description  of  the  treeiput  function. 


The  program  treeoput  (or  tr eeiputS treeoput)  creates  a  process 
directory  file  named  "treedata"  and  places  the  vectors  associated  with 
the  NCOS  tree  treename  into  this  file.  The  program  treeoput  may  output 
trees  with  greater  than  1R2  dimensions.  The  chief  difference  between 
the  "treedata"  format  created  by  treeoput  and  the  "filedata"  format 
utilized  by  the  program  fileinput  is  that  each  vector  in  the 
"treedata"  file  has  a  unicue  identification  number. 


For  a  more  detailed  description  of  the  operations  of 
treeiput$oput,  see  the  program  listing  documentation. 
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4.  IS)  any 

External  Procedure : 
any 

Declaration : 

declare  any  entry  (char  (*)  vat,  char  (*)  var)  returns  (bit 
(1)  )  ; 


Cal  1 : 


This  is  a  function  procedure  which  returns  a  true  or 
false  value.  Thus  its  usage  is: 


if  any  (choices,  arg)  then  .... 


arg  an  ASCII  string  of  characters  representing  the 

value  to  search  for  in  the  choices. 
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Descc iption; 

This  is  a  recursive  procedure.  The  choices  must. he  in  the  form 
"cl Ic2 t . . , ten" ,  where  each  choice  may  be  of  any  length. 

For  example,  let  us  suppose  that  we  wish  to  determine  if  the 
user's  reply  to  a  query  was  "yes",  "no",  or  "maybe'-.  Ke  would  test  his 
reply  with  the  any  function  as  follows: 

if  any  ( "yes ! no ! maybe" ,  reply)  then  .... 

The  procedure  is  very  simple,  and  is  adequately  documented  in  the 
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4.20  delay 


delay 


declare  delay  entry  (fixed  binary  (17)) 


call  delay  (amount) 


Arguments 


delay  time  in  seconds  (lamount!  <  60) 


amount 


This  procedure  is  used  by  the  I/O  module  "remote  data. 


before  the  first  read  or  write  when  using  the  4923  remote  cassette 


If  the  amount  to  pause  is  less  than  zero,  it  is  set  to  its 


positive  value,  and  the  delay  clock  values  are  displayed  for  debugging 
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4,20  floating  point  general  remarks 

The  floating  point  conversion  program  was  written  to  fulfill  a 
need  to  convert  a  floating  point  number  from  a  source  machine  to  a 
floating  point  number  on  a  target  machine. 

The  components  of  floating  point  numbers  of  various  machines  were 
analyzed  to  determine  the  basic  components  and  necessary  operations 
for  conversions.  Working  from  the  concepts  expressed  by  Knuth  [10, 
Chapter  4],  the  following  precepts  were  established: 

o  The  floating  point  number  (e,  f)  is  defined  as  f*b**(e-q), 
where  f  is  a  signed  fraction,  | f  f  <1 ,  b  is  the  base,  e  is  the 
integer  exponent,  and  q  is  the  bias, 

o  A  floating  point  number  is  said  to  be  normalized  if  the  most 
significant  digit  of  the  representation  of  f  is  non-zero. 
That  is  b**  (l/2)£f<_b**l . 

o  Exponents  from  (— b* * (n— 1 ) )  to  (+b** (n-1) -1) ,  where  n  is  the 
number  of  exponent  bits,  are  represented  by  the  binary 
equivalents  of  £  (zero)  through  (b**n-l),  For  example,  if 
the  bias,  q,  is  128  decimal  (200  octal) ,  and  there  are  eight 
bits  in  the  exponent,  then  exponents  of  -128  to  +127  are 
represented  by  the  binary  equivalents  of  0  (zero)  through 
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255  decimal  (  fc  through  377  octal)  , 

The  floating  point  conversion  program  employed  several 
user-callable  procedures.  These  user-callable  procedures  are  in  the 
form  "X_to_Y",  where  "X"  represents  the  source  machine,  and  "Y" 
represents  the  target  machine.  For  example,  if  the  user  wanted  to 
convert  a  MULTICS  floating  point  word  to  an  IBM  floating  point  word, 
the  call  would  be  to  the  procedure  "KULTICS_to_IBM" . 

If  the  user  should  want  to  convert  a  floating  point  word  from  or 
to  a  machine  that  is  not  defined  in  the  procedures,  he  may  call  the 
procedure  "convert".  The  use  of  this  entry  is  described  in  the  next 
section.  This  entry  is  called  by  all  of  the  "X_to_Y"  entries. 

Special  procedures  were  designed  to  mimic  general  assembler  or 
machine-language  instructions  for  bit  manipulation.  Since  they  are 
v/ritten  in  PL/1,  they  are  naturally  slower  than  they  would  be  if 
written  in  assembler,  but  are  more  easily  understood.  They  are 
described  in  more  detail  in  the  following  documentation  and  in  the 
program  documentation  listing. 

Conversion  of  exponent  bases  (such  as  from  IBM  base  16  to  base  2) 
was  accomplished  through  an  algorithm  described  by  Perry  15] .  The 
interested  user  is  referred  to  the  source  paper  and  the  program 
listing  documentation  for  further  information. 
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ihe  general  structure  of  the  floating  point  conversion  prograr; 
shown  in  Figure  5. 


is 
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:lc  to  I  DM 


CDC  to  MULTICS 


CDC  to  PDP 


IBM  to  CDC 


IBM  to  MULT ICS 


ISM  to  PDP 


MULTICS  to  CDC 


iVULTICS  to  IBM 


MULT ICS  to  PDP 


FDP  to  CDC 


PDP- to- I DM 


PDP  to  MULTICS 


-!  convert  I- 


add  one 


subtract 


sub  one 


shift  left 


shift__r  ight 


ones_corr.plement  I 


twos_coreplement  | 


round 


normalize  ■ 


base2  to  hase!6  ! 


Figure  9  Floating  point  system  structure 
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4,21  convert 

Name:  convert 

Usage: 

declare  convert  entry  (bit  (*)  unaligned,  fixed  bin,  fixed  bin, 
fixed  bin,  fixed  bin,  fixed  bin,  fixed  bin,  fixed  bin, 
fixed  bin,  bit  (*)  unaligned,  bit  (1),  fixed  bin  (35)); 

call  convert  (bits_in,  exp— size_in,  exp_base_i.n,  exp_bias_in, 
neg_type_in,  exp_size_out,  exp_base_out,  exp_bias_out, 
ne9_type_out,  bits_out,  debug,  error_code) ; 


Arguments: 


bits  in 


bit  string  to  be  converted  (input) 


exp_size_in 

exp_base_in 

exp_bias_in 

neg_type^_in 


number  of  bits  in  exponent  (input) 


radix  of  exponent  (input) 


bias  of  exponent  (input) 


type  of  negative  fraction:  2  for  two's 
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complement,  1  for  one's  complement,  and  G  for 
signed  true  form  (input) 

exp_size_out  number  of  bits  in  exponent  (output) 

exp_base_out  radix  of  exponent  (output) 

exp_bias_out  bias  of  exponent  (output) 

neg_type_out  type  of  negative  fraction  (output) 

bits_out  bit  string  to  be  created  (output) 


debug  test  switch  to  monitor  program  flow  and 

variable  values  (input) 


error_code  result  of  operations  (output) 


This  is  the  f loating_point  conversion  routine.  As  such,  it  uses 
information  about  the  input  and  output  floating  point  number  formats 
to  convert  an  input  bit  string  to  an  output  bit  string. 
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4.22  CDC_tO_IBH 

Name;  CDC_to_IEH 

Usage ; 

declare  CCC_to_IEK  entry  (bit  (*),  fixed  bin,  bit  (*),  bit  (1)  , 
fixed  bin  (35) ) ; 

call  CDC_to_IEM  (bits_in,  precision,  bits_out,  debug, 
error_code) ; 


bit  string  to  be  converted.  It  must  be  in  the 
form  of;  fraction  sign,  exponent,  fraction 
( input) 

number  of  words  of  precision,  usually  1-4 
(input) 


Arguments; 


bits  in 


precision 


bits_out  bit  string  for  output  machine.  Will  be  in 


format  of:  fraction  sign,  exponent,  fraction 
(output) 
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<3ebug  logical  switch  to  trace  program  flow  and 

variable  assignments  (input) 

error_code  indicator  of  error  in  system  (output) 

Description : 


This  entry  converts  a  floating  point  word  bit  string  (bits_in) 
from  CDC  machine  format  to  IBM  machine  format  (bits_out) . 

Care  should  be  taken  to  insure  correct  format  of  the  input  bit 
string  before  the  call. 


m. 

m 

-I 

* 
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4.23  CCC  to  MULT ICS 


Name : 


CDC  to  MU LT ICS 


Usage : 


declare  CCC_to_KULTICS  entry  (bit  (*),  fixed  bin,  bit  (*)  ,  bit 
(1) ,  fixed  bin  (35)  )  ; 

call  CLC_to_MULTICS  (oits_in,  precision,  bits_out,  debug, 
error  code) ; 


Arguments: 


bits  in 


precision 


bits  out 


bit  string  to  be  converted.  It  rust  be  in  the 
form  of:  fraction  sign,  exponent,  fraction 
(input) 


number  of  words  of  precision,  usually  1-4 
(input) 

bit  string  for  output  machine.  Kill  be  in 
format  of:  fraction  sign,  exponent,  fraction 
(output) 
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debug  logical  switch  to  trace  program  flow  and 

variable  assignments  (input) 

error_code  indicator  of  error  in  system  (output) 

Description ; 


This  entry  converts  a  floating  point  word  bit  string  (bits_in) 
from  CDC  machine  format  to  KULTICS  machine  format  (bits_o  jt)  , 

Care  should  be  taken  to  insure  correct  format  of  the  input  bit 
string  before  the  call. 
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4.24  CDC_tO_PDP 

Name;  CDC_to__PDP 

Usage; 


declare  CDC_to_PDP  entry  (bit  (*)  ,  fixed  bin,  bit  (*),  bit  (1)  , 
fixed  bin  (35) ) ; 

call  CDC_to_PDP  (bits_in ,  precision,  bits_out,  debug, 
error  code) ; 


Arguments: 


bits  in 


bit  string  to  be  converted.  It  must  be  in  the 
form  of:  fraction  sign,  exponent,  fraction 
(input) 


precision 


number  of  words  of  precision,  usually  1-4 
(input) 


bits  out 


bit  string  for  output  machine.  Will  be  in 
format  of:  fraction  sign,  exponent,  fraction 
(output) 
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debug  logical  switch  to  trace  program  flow  and 

variable  assignments  (input) 

error_code  indicator  of  error  in  system  (output) 

Description : 


This  entry  converts  a  floating  point  word  bit  string  (bits_in) 
from  CDC  machine  format  to  PDP  machine  format  (bits_out)  « 

Care  should  be  taken  to  insure  correct  format  of  the  input  bit 
string  before  the  call. 
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4.25  IBM_tO_CDC 

Name:  IEM_to_CDC 

Usage: 


declare  IBM__to_CDC  entry  (bit  (*)  ,  fixed  bin,  bit  (*)  ,  bit  (1)  , 
fixed  bin  (35) ) ; 

call  IBM_to__CDC  (bits_in,  precision,  bits_out,  debug, 
error  code) ; 


Arguments: 


bits  in 


precision 


bits  out 


bit  string  to  be  converted.  It  must  be  in  the 
form  of:  fraction  sign,  exponent,  fraction 
(input) 

number  of  words  of  precision,  usually  1-4 
(input) 

bit  string  for  output  machine.  Will  be  in 
format  of:  fraction  sign,  exponent,  fraction 


(output) 


This  entry  converts  a  floating  point  word  bit  string  (bits^in) 
from  IBM  machine  format  to  CDC  machine  format  (bits_out) . 

Care  should  be  taken  to  insure  correct  format  of  the  input  bit 
string  before  the  call. 
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4.26  IBM  to  MULTICS 


Name:  IBM_to_KULTICS 

Us.ag  e : 

declare  IBM_to_MULTICS  entry  (bit  (*),  fixed  bin,  bit  (*),  bit 
(1) ,  fixed  bin  (35) ) ; 

call  IBM_to_Ml'LTICS  (bits_in,  precision,  bits_out,  debug, 
error  code) ; 


Arq  uments : 


bits  in 


precision 


bits  out 


bit  string  to  be  converted.  It  must  be  in  the 
form  of:  fraction  sign,  exponent,  fraction 
(input) 

number  of  words  of  precision,  usually  1-4 
(input) 

bit  string  for  output  machine,  will  be  in 
format  of:  fraction  sign,  exponent,  fraction 
(output) 
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debug  logical  switch  to  trace  program  flow  and 

variable  assignments  (input) 

error_code  indicator  of  error  in  system  (output) 

Description ; 

This  entry  converts  a  floating  point  word  bit  string  (bits_in) 
from  IPM  machine  format  to  MULTICS  machine  format  (bits_out) . 

Care  should  be  taken  to  insure  correct  format  of  the  input  bit 
string  before  the  call. 
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4,27  IBM_tO_PDP 

Name:  IBM_to_PDP 

Usage : 

declare  IBM_to_PDP  entry  (bit  (*)  ,  fixed  bin,  bit  (*) ,  bit  (1) , 
fixed  bin  (35) ) y 

call  IBM_to_PDP  (bits_in,  precision,  fcits_out,  debug, 
error  code) ; 


Arguments : 


bits  in 


precision 


bits  out 


bit  string  to  be  converted.  It  must  be  in  the 
form  of:  fraction  sign,  exponent,  fraction 
(input) 

number  of  words  of  precision,  usually  1-4 
(input) 

bit  string  for  output  machine.  Kill  be  in 
format  of:  fraction  sign,  exponent,  fraction 
(output) 
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debu 


logical  switch  to  trace  program  flow  and 


variable  assignments  (input) 


indicator  of  error  in  system  (output) 


Description 


This  entry  converts  a  floating  point  word  bit  string  (bits_in) 
from  IBM  machine  format  to  PDF  machine  format  (bits  out)  . 


Care  should  be  taken  to  insure  correct  format  of  the 
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4.28  MULTICS  to  CDC 


Name: 


MULTICS  to  CDC 


Usage : 

declare  MULTIC5_to_CDC  entry  (bit  (*)  ,  fixed  bin,  bit  (*)  ,  bit 
(1) ,  fixed  bin  (35) ) ; 

K 

call  MULTICS_to_CDC  (bits_in,  precision,  bits_out,  debug, 
error_code) ; 

Arguments: 


bits  in 


precision 


bits  out 


bit  string  to  be  converted.  It  trust  be  in  the 
form  of:  fraction  sign,  exponent,  fraction 
( input) 

number  of  words  of  precision,  usually  1-4 
(input) 

bit  string  for  output  machine.  Will  be  in 
format  of:  fraction  sign,  exponent,  fraction 
(output) 
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^ebug  logical  switch  to  trace  program  flow  and 

variable  assignments  (input) 


error_code  indicator  of  error  in  system  (output) 


Description: 


This  entry  converts  a  floating  point  word  bit  string  (bits_in) 
from  MULT ICS  machine  format  to  CDC  machine  format  (bits_out) . 

Care  should  be  taken  to  insure  correct  format  of  the  input  bit 
string  before  the  call. 
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4.29  MULTICS_tO_IHK 

Name:  MULTICS_tO_IBM 

L  s  ac  e ; 

declare  f'ULTICS_to_IPM  entry  (bit  (*),  fixed  bin,  bit  (*),  bit 
(1) ,  fixed  bin  (35) ) ; 


call  MU LTICS_to_ID.V  (bits_in,  precision,  bits_out,  debug, 

error  code) ; 


bit  string  to  be  converted.  It  rust  be  in  the 
form  oE:  fraction  sign,  exponent,  fraction 
(input) 

number  of  words  of  precision,  usually  1-4 
(input) 


bits  out  bit  string  for  output  machine.  Kill  be  in 

format  of:  fraction  sign,  exponent,  fraction 
(output) 
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4 . 30  MULTICS_tO_PI>P 

Name :  MLLTICS  to  PDP 


Usage: 

declare  NULTICS_to_PDP  entry  (bit  (*),  fixed  bin,  bit  (*),  bit 
(1) ,  fixed  bin  (35) ) ; 

call  MULTICS_to_PDP  (bits_in,  precision,  bits_out,  debug, 
error  code) ; 


Arguments- 


bits  in 


precision 


bits  out 


bit  string  to  be  converted.  It  must  be  in  the 
form  of:  fraction  sign,  exponent,  fraction 
(input) 

number  of  words  of  precision,  usually  1-4 
(input) 

bit  string  for  output  machine.  Kill  be  in 
format  of:  fraction  sign,  exponent,  fraction 
(output) 
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debug 


logical  switch  to  trace  program  flow  and 
variable  assignments  (input) 

indicator  of  error  in  system  (output) 


This  entry  converts  a  floating  point  word  bit  string  (bits_in) 
from  MULTICS  machine  format  to  PDP  machine  format  (bits_out) . 

Care  should  be  taken  to  insure  correct  format  of  the  input  bit 
string  before  the  call. 
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4.31  PDP_tO_CDC 

Name :  PDP_to_CDC 

Usage : 

declare  PDP_to_CDC  entry  (bit  (*)»  fixed  bin,  bit  (*) ,  bit  (1) , 
fixed  bin  (35) ) ; 

call  PDP_to_CDC  (bits_in,  precision,  bits_out,  debug, 
error  code) ; 


precision 


bit  string  to  be  converted.  It  rust  be  in  the 
form  of:  fraction  sign,  exponent,  fraction 
(input) 

number  of  words  of  precision,  usually  1-4 
(input) 


bits_out  bit  string  for  output  machine.  Will  be  in 

format  of:  fraction  sign,  exponent,  fraction 
(output) 
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debug  logical  switch  to  trace  program  flow  and 

variable  assignments  (input) 

error_code  indicator  of  error  in  system  (output) 

Description: 

0 

This  entry  converts  a  floating  point  word  bit  string  (bits_in) 
from  PDP  machine  format  to  CDC  machine  format  (bits_out) , 

Care  should  be  taken  to  insure  correct  format  of  the  input  bit 
string  before  the  call. 
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4.32  PEP  to  IBP' 


Name : 


PEP  to  IBM 


Usage : 


declare  FOP_to_IBM  entry  (bit  (*) ,  fixed  bin,  bit  (*),  bit  (1), 
fixed  bin  (35) ) ; 


call  PDP  to  IBM  (bits  in. 


precision, 


bits  out, 


error  code) ; 


Arguments: 


bits  in 


bit  string  to  be  converted.  It  must  be  in  the 


for;T  of:  fraction  sign,  exponent,  fraction 
( input) 


rrecision 


number  of  wares  of  precision,  usually  1-4 
(input) 


bits  out 


bit  strin,  for  output,  i a  chine.  '.ill  be  in 
format  of:  fraction  sign,  exponent,  fraction 


(cutr  ut) 


4-£>o 


ri;,7'L  efpoft  fct'Cte  lata  ectey 

section  4  -  dee  feecticfal  decceiptiom 

debug  logical  switch  to  trace  program  flow  and 

variable  assignments  (input) 

error_code  indicator  of  error  in  system  (output) 

Description: 

This  entry  converts  a  floating  point  word  bit  string  (bits_in) 
from  PDF  machine  format  to  IFF.  machine  format  (bits^out)  . 

Care  should  be  taken  to  insure  correct  format  of  the  input  bit 
string  before  the  call. 
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bits_out  bit  string  for  output  machine.  VTill  be  in 

format  of:  fraction  sign,  exponent,  fraction 
(output) 
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logical  switch  to  trace  program  flow  and 
variable  assignments  (input) 

indicator  of  error  in  system  (output) 


This  entry  converts  a  floating  point  word  bit  string  (bits_in) 
from  PEP  machine  format  to  MULTICS  machine  format  (bits_out) . 

Care  should  be  taken  to  insure  correct  format  of  the  input  bit 
string  before  the  call. 
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4.W  add 

Name ;  add 

Usage : 

declare  add  entry  (bit  (*),  bit  (*)»  bit  (1),  fixed  bin  (35)); 

call  add  (bitsl,  bits2,  debug,  errcr_code) ; 

Arguments ; 

bitsl  bit  string  to  add  (input/output) 

bits2  bit  string  to  add  (input) 


debug  test  switch  (input) 

error_code  system  error  (output) 

Descr iption ; 

This  procedure  adds  two  bit  strings  serially  from  the  right 
(least  significant  bit,  lsb)  to  the  left  (most  significant  bit,  msb) 
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using  the  concept  of  a  one-bit  full  adder  [11], 

A  one-bit  full  adder  must  be  capable  of  accepting  three  inputs. 
Two  are  the  original  bits  (shown  as  "a"  and  "b"  in  Figure  IB.),  and 
the  third  input  "c"  is  the  carry  out  from  the  previous  bit  addition. 
For  the  first  add,  the  c  input  is  initialized  to  "0”b.  There  are  two 
outputs  of  the  adder:  the  sum  bit,  "s",  and  the  carry  out  bit,  "c1". 

The  canonical  minterm  form  for  s  using  the  EXCLUSIVE  OR  operation 
is: 

s  =  a  ?  b  ?  c. 

\ 

The  carry  out  term  is  derived  from: 

c'  =  be  V  ac  V  ab.  ("V"  denotes  "OR") 
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a  b  + -  c  (carry  in) 

III 

iii 


I  FULL  | 
!  ADDER  ( 


(carry  out)  c'« — +  s 

s  =  a  /  b  ?  c  denotes  EXCLUSIVE  OR) 
c  =  be  V  ac  V  afc  (v  denotes  OR) 


Figure  10  Full  Adder  Design 
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4,35  add_one 

Name :  add_one 

Usage: 

declare  add_one  entry  (bit  (*)  ,  bit  (1),  fixed  bin  (35)); 
call  adc_one  (bits,  debug,  error_code) ; 

Arg  undents : 

bits  bit  string  to  be  incremented  (Input/output) 

debug  test  switch  (Input) 

error_code  set  to  1  if  overflow,  else  set  to  C  (output) 

Description : 

This  procedure  adds  one  bit  to  the  input  bit  string  using  Boolean 
algebra.  Addition  of  the  carry_bit  continues  from  the  right-most  (lsb) 
to  the  left-most  (msb)  bit  until  the  carry  bit  is  zero  or  the  msb  is 
reached.  If  the  carry  bit  is  set  after  the  addition  is  complete,  the 
error  code  is  set  to  1  to  indicate  overflow. 
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4, 36  subtract 

Name :  subtract 

Usage : 

declare  subtract  entry  (bit  (*) ,  fixed  bin,  bit  (1),  fixed 
(35) )  ; 

call  subtract  (bits,  value,  debug,  error  code); 


bit  string  to  subtract  value 
(input/output) 

value  to  subtract  from  bit  string  (input) 
test  switch  (input) 

procedure  result  (output) 


Arguments : 


bits 


value 


debug 


error  code 
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This  procedure  subtracts  the  given  value  from  the  bit  string  by 
adding  the  one’s  complement  bit  representation  of  te  value  to  the  bit 
string  . 
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4,37  sub  one 


Name:  sub  one 


Usag-e: 


declare  sub_one  entry  (bit  (*) ,  bit  (1),  fixed  bin  (35)); 


call  sub_one  (bits,  debug,  error_code) ; 


Arguments: 


bits 


bit  string  to  be  decremented  (Input/output) 


debug 


test  switch  (Input) 


error  code 


set  to  1  if  overflow,  else  set  to  3  (output) 


Description : 


This  procedure  subtracts  one  bit  from  the  input  bit  string  using 
Boolean  algebra. 
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4,38  shift  left 


Name :  shift  left 


Usage ; 


declare  shift_left  entry  (bit  (*),  fixed  bin,  bit  (1),  fixed  bin  > 

(35)  )  ; 


call  shift_left  (bits,  places,  debug,  error_code) ; 


Arguments ; 


bits  bit  string  to'  subtract  value  from 

(input/output) 

places  number  of  places  to  shift  left  (input) 


debug  test  switch  (input) 
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places.  The  bit  string  is  zero  filled  on  the  right. 

If  the  number  of  places  to  shift  is  greater  than  the  size  of  the 
bit  string,  the  error_code  is  set  to  1. 

If  any  of  the  bits  shifted  off  the  left  end  are  equal  to  "l"b, 
the  error  code  is  set  to  2  to  indicate  truncation. 
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4.39  shif t_r ig h t 

Nair.e :  shift_right 

Usag  e : 

declare  shift_right  entry  (bit  (*)  ,  fixed  bin,  bit  (1),  fixed  bin 
(35) )  ; 

call  shifty right  (bits,  places,  debug,  error_code) ; 

Arguments : 

bits  bit  string  to  subtract  value  from 

(input/output) 

places  number  of  places  to  shift  right  (input) 

debug  test  switch  (input) 

error_code  procedure  result  (output) 

Description ; 

This  procedure  shifts  the  bit  string  right  the  number  of  places 
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specified.  The  string  is  zero  filled  on  the  left. 

If  the  number  of  places  to  shift  is  greater  than  the  size  of  the 
bit  string,  the  error_code  is  set  to  1, 

If  any  of  the  bits  shifted  of  the  right  end  are  equal  to  "l"b, 
the  error  code  is  set  to  2  to  indicate  truncation. 
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4.40  ones_complement 


declare  ones_coir,plement  entry  (bit  (*),  bit  (1),  fixed  bin  (35)) 


call  ones_complement  (bits,  debug  error_code) 


Arguments 


bit  string  to  complement  (input/output) 


test  switch  (input) 


procedure  result  (output) 


This  procedure  produces  the  one's  complement  of  the  input  bit 


string  by  replacing  each  bit  in  the  string  with  its  complementary 
(negated)  value. 
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4.41  twos_complement 


Name :  twos_complenent 


Usage: 


declare  twos_conplement  entry  (bit  (*),  bit  (1),  fixed  bin  (35));  i 


call  two s_compl erne nt  (bits,  debug,  error_cooe); 


Arg  uments : 


bits  bit  string  to  complement  (input/outnut) 


debug  test  switch  (input) 


error_code  procedure  result  (output) 


Description : 


This  procedure  converts  the  given  bit  string  to  the  two's 
complement  representation  by  adding  the  value  of  one  to  the  one's 
complement  representation  of  the  bit  string. 


I 
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4.42  round 

Raise ;  round 

Usag  e : 

declare  round  entry  (bit  (*) ,  bit  (*)  ,  fixed  bin,  bit  (1),  fixed 
bin  (35) ) ; 

call  round  (exponent,  fraction,  places,  debug,  error  code); 

Arq  urer.ts : 

exponent  exponent  (input/output) 
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4,43  normalize 


Name : 


normalize 


Usage : 


declare  normalize  entry  (bit  (*),  bit  (*) ,  bit  (1),  fixed  bin 
(35) )  ; 


call  normalize  (exponent,  fraction,  debug,  error  code); 


Arguments ; 


exponent 


fraction 


debug 


error  code 


Description : 


exponent  (input/output) 


fraction  (input) 


test  switch  (input) 


procedure  result  (output) 


This  procedure  normalizes  a  floating  point  number  by  shifting  the 
fraction  bits  left  one  bit  and  adding  one  to  the  exponent  bits  until 


_ _ _  _ 
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the  leftmost  fraction  bit  is  set  ("l"b).  This  is  described  by  [10, 

p. 181]  : 

"A  floating-point  number  (e,  f)  is  said  to  be 
normalized  if  the  most  significant  digit  of  the 
representation  of  f  is  non-zero,  so  that 

1/b  <  If!  <  1; 

or  if  f  =  0  and  e  has  its  smallest  possible  value"  . 
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4.44  base2_to_basel6 

Name :  base2_to_basel6 

Usage: 

declare  base2_to_basel6  entry  ((*)  bit  (1)  unaligned,  (*)  bit  (1) 
unaligned,  bit  (1),  fixed  bin  (35)); 

call  base2_to_basel6  (exponent,  fraction,  debug,  error_code) ; 

Arguments: 

exponent  bit  array  representation  (input/output) 

fraction  bit  array  representation  (input/output) 

debug  test  switch  (input) 

error^code  procedure  result  (output) 

Description: 

This  procedure  is  used  to  convert  base2  floating  point 
to  the  basel6  format  used  by  I3M, 


numbers 
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The  algorithm  used  in  this  procedure  was  taken  from  [9], 

The  rational  approximant,  p/q,  mentioned  in  the  paper  was  chosen 
so  that  d  =  (bT  (p/q) ) (dTepsilon)  was  exact.  That  is,  with  p/q  =  1/4 
and  b  =  16,  bT ( 1/4 )  is  exactly  equal  to  d  (2).  Thus,  epsilon  is  zero. 

The  basel6  exponent  (u,  in  the  paper)  is  derived  by  multiplying 
the  base2  exponent  (s,  in  the  paper)  by  p/q.  Since  p/q  =  1/4,  the 
base2  exponent  was  divided  by  4  (shifted  right  by  2),  The 
multiplier  (FF(ps/q),  in  the  paper)  was  obtained  by  "catching"  the 
bits  as  they  shifted  off  the  right  end  during  the  division. 

This  multiplier,  which  will  have  only  the  values  3,  1,  2,  or  3, 
is  then  used  to  compute  the  non-normal ized  basel6  fraction, 
bT FP  (ps/ q )  ,  by  multiplying  (shifting  left)  the  base2  fraction. 


The  fraction  bits  are  checked  for  overflow,  and  normalized  by 
dividing  the  fraction  by  16  (shifting  right  by  4) ,  and  subtracting 
one  from  the  exponent  for  each  division. 
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5  CTS  Functional  Description 

5.1  CTS  Structure 

There  are  four  major  subroutines  within  CTS:  pr ocess_args , 
process_keywords ,  process_comr.ands ,  and  process_procram.  Each  of  these 
have  been  broken  down  into  smaller  modules,  each  having  a  specific 
function.  Process_conrrands ,  has  been  broken  into  the  greatest  number 
of  modules:  nine  in  all. 

The  first  major  subroutine,  process_args ,  receives  all 
controlling  and  pathname  arguments  input  by  the  user,  verifies  that 
they  are  legal  arguments,  and  set  switches  accordingly.  The  second 
major  subroutine,  process_keywords ,  obtains  vector  keywords  from  the 
user.  The  third  major  subroutine,  process_commands ,  uses  S  smaller 
modules,  five  of  which  are  command  routines,  which  process  the 
commands  individually.  The  sixth  module  that  process_coir.mands  uses, 
advance,  is  used  to  return  each  token  or  word  to  the  five  command 
routines.  It  does  so,  by  using  a  seventh  module,  get_char,  which 
returns  individual  characters.  Advance  combines  the  individual 
characters  to  form  a  word  of  the  command  line.  The  eighth  module  is 
an  error  routine  which  can  be  called  by  process_five  commands,  by  the 
five  command  modules,  by  advance,  or  by  get_char  when  an  error  is 


encountered  while  processing  a  command.  The  ninth  module,  query_user. 
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the  generated  PL/1  program. 

The  names  in  the  structural  design  of  CTS  are  shown  in  the 
accompanying  figure.  The  names  of  the  routines  and  modules  are  in 
capital  letters  while  the  functional  aspects  are  in  lower  case 
letters . 
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I  CTS  I  — 
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Figure  11  CTS  Structure  (continued) 
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5,2  Cts 

Function :  cts  {-pathname  arguments}  {-control  arguments} 

Parameters:  arguments  may  be  specified  when  calling  CTS,  If  omitted, 

user  will  be  prompted  for  them, 

-old  pathname  required  pathname  of  the  input  segment  or  multisegment 
ASCII  RDE  data  file.  If  not  present,  CTS  will  query  the 
user  for  the  data  file  segment  name. 

-new  pathname  pathname  of  ASCII  RDE  data  file  to  be  created  from 
applying  CTS  to  the  input  data  file.  If  no  pathname  is 
entered,  the  default  pathname  is  "empty", 

-in  pathname  pathname  of  the  segment  from  which  CTS  control  arguments 
and  commands  are  to  be  taken.  This  segment  name  must  have 
".cts"  as  a  suffix,  but  is  not  required  in  the  command  line. 
May  be  used  only  when  calling  CTS. 

-out  pathname  pathname  of  the  segment  to  which  CTS  control  arguments 
and  commands  are  to  be  copied  to.  A  suffix  of  ",cts"  will 
be  appended  to  the  pathname.  This  argument  is  incompatible 
with  the  "-in"  argument.  Default  is  no  output  segment. 
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-save  pathname,  -sv  pathname  causes  generated  PL/1  program  to  be  saved 
in  the  current  working  directory,  A  suffix  of  M.pll"  is 
appended  to  the  pathname,  but  is  not  required  in  the  command 
1  ine. 

-list  causes  a  listing  of  the  generated  PL/1  program.  Default  is  no 
listing , 

-check,  -ck  checks  syntax  of  input  commands.  There  is  no  translation 
or  program  generation. 

-noxqt,  -nx  Used  with  the  "-save"  argument  to  just  generate  the  PL/1 
program 

-noquery,  -nq  inhibits  message  asking  user  for  control  arguments  and 
commands.  Should  only  be  used  when  working  in  the  batch 

miode. 

-echo  causes  a  display  at  the  terminal  of  the  input  control  arguments 
and  commands  as  they  are  read  in.  Default  is  no  echo, 

-debug,  -db  causes  a  trace  of  statements  executed.  Is 
mainly  for  use  by  a  systems  maintenance  person, 

-menu  prints  a  listing  of  all  the  arguments  available  in  CTS, 
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-panic  will  notify 

the  user  if  he 

attempts 

to  put  a  vector 

into 

two 

different 

classes  and 

will  terminate  execution 

of 

the 

generated 

PL/1  program. 

Default 

is  notification 

of 

this 

occurrence,  creation  of  a  file  containing  all  vectors  placed 
in  more  than  one  class,  and  continued  execution  of  the 
generated  PL/1  program, 

-arguments  argstring,  -args  argstring  passes  arguments  "argstring”  to 
the  PL/1  compiler  as  compilation  arguments  for  compilation 
of  the  generated  PL/1  program. 

Description : 

The  user  function  CTS  reads  in  control  arguments  either  from  an 
input  file  or  from  the  terminal,  then  calls  cts_process_args  to 
process  the  arguments  and  set  switches,  CTS  then  calls 
cts_process_keywords  to  obtain  keywords  from  the  user.  The  next 
subroutine  called  by  CTS  is  cts_process_commands  which  processes  the 
edit  and  extraction  commands.  The  last  subroutine  called  is 
cts_process_prog ram  which  indents  and  compiles  the  generated  PL/1 
program,  CTS  can  then  list  and  execute  the  generated  program  if  the 
user  so  desires.  All  switches  are  then  turned  off,  and  CTS  is 
completed. 
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begin  cts; 

get  default  working  directory; 

get  number  of  args  from  command  line  when  calling  cts; 
if  number  of  args>G  then  do  m*l  to  number  of  args; 
get  a  pointer  to  arg; 
verify  is  a  legal  argument; 
if  a  double  word  argument,  get  second  word; 
call  cts_process_args ; 

end ; 

open  input  file; 

if  no  args  in  command  line  then  do; 
get  arg  from  user  or  input  file; 
verify  is  a  legal  argument; 
if  a  double  word  argument  get  second  word; 
call  cts_process_args; 

end; 

if  user  wants  args  written  to  outfile,  then  do; 
open  outfile; 

write  each  argument  to  outfile; 

end; 

if  user  wants  to  know  flow  of  cts  then  do; 

print  each  argument  and  value  of  its  switch; 

end; 

call  cts_process_keywords; 
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call  cts_process_commands ; 

if  an  error  in  processing  of  commands,  then  delete  generated  PL/1  progran 


if  pathname  of  generated  PL/1  program  ="empty"  then  rename  to  "gfile.pll 
call  cts_process_prog ram ; 

if  user  wants  a  listing,  then  print  listing; 
if  user  wants  the  generated  program  executed,  then  do; 
if  severity  of  errors<2  then  execute  program; 
else  ask  user  if  he  wants  program  executed; 


if  "yes"  then  execute  program 


close  infile 


if  opened  outfile,  then  close  outfile 


if  user  does  not  want  generated  program  saved,  then  delete  program 
turn  all  argument  switches  off; 
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5.3  cts  _process— args 

Function:  call  cts_ process_args  (argl,  arg2,  old_path,  new_path, 

in_ path,  out_ path,  save__path,  arg_string) 


Parameters : 


argl 


arg2 


old_path 


new  _ path 


in_path 


out^ path 


save^ path 


arg_string 


word  in  a  2  word  argument  or  only  word  in  a  1  word 
argument 

second  word  in  a  2  word  argument 

pathname  of  old  data_ file 

pathname  of  new  data  file  created  from  applying  cts  to  old 
data  file 

pathname  of  file  containing  all  cts  arguments  and  commands 

pathname  of  file  to  which  all  cts  arguments  and  commands 
are  written 

pathname  under  which  the  generated  PL/1  program  is  saved 

string  of  arguments  which  are  passed  to  the  PL/1  compiler 


FEf'CTfc  LATA  EMTl'Y 

SECTION  5  -  CTE  FDNCTIOt'AL  r.ESCKlPTIC 


FINAL  PEFCFT 


and  are  used  in  compilation  of  the  generated  F-L/l  program 


The  subroutine  CTS_process_args  sets  switches  based  on  the 
user-supplied  CTS  arguments.  If  a  switch  has  previously  been  set,  the 
user  is  notified  of  this  condition. 


begin  cts_process_args ; 

if  argl  is  a  legal  one  word  argument  then  do; 
if  switch  is  already  set  then  do; 


if  argl  is  the  first  word  of  a  legal  2  word  argument  i  (argl 
if  switch  is  already  set  then  do; 


set  switch; 


then  Jo 


else  if  argl 
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| 


if  switch  is  already  set  then  do; 
print  error  message; 

end; 

else  do; 

verify  saved  program  "cts.pll"  I  "cts"; 
if  does,  notify  user  is  not  permissible; 
ask  user  if  he  wants  to  try  another  program; 
if  he  does,  then  get  new  program  name; 

end; 

set  switch; 

if  "*.pll"  not  in  program  name,  add  it; 
save_path  *  arg2; 

end; 

else  if  argl  *  "-arguments"  I  "-args"  then  do; 
if  switch  already  set  then  do; 
print  error  message; 

end; 

else  do; 

set  switch; 
arg_ string  *  arg2; 

end; 

end; 

end  cts_j>rocess_args; 
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5.4  cts_process_keywords 

Function:  call  cts_process_keywords  (number_of_ keywords , 

keyword_table,  in,  out,  echo,  nocuery,  debug) 

Parameters: 

nur;.ber_ of__keywords  number  of  keywords  in  each  vector  in  data  file 


keyword_table 


pointer  to  table  of  keywords 


m 


switch  which  determines  whether  or  not  to  read 
from  a  file  containing  cts  args  and  commands  - 
same  as  the  argument  "-in  pathname" 


out 


switch  which  determines  whether  or  not  to  write 
to  a  file  the  cts  args  and  commands  -  same  as 
the  argument  "-out  pathname" 


echo 


switch  which  dethermines  whether  or  not  to  echo 
each  line  read  in  -  same  as  the  "-echo"  argument 
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switch  which  determines  whether  or  not  user 


debug 


wants  to  see  the  flow  of  the  prog  ran; 


the  "-debug"  argument 


Description 


cts  process  keywords  function  is  intended  to  obtain  the  number  of 
keywords(if  any),  to  allocate  storage  for  those  keywords,  and  then  to 
ask  the  user  for  each  keyword  and  its  subfields  (if  any). 


begin  cts_process_keywords 


get  nurber_of__keywords 


allocate  storage  for  keywords 


do  loop  for  number  of  keywords; 

if  skip_keyword  switch  on  then  do 


generate  keyword 


get  subfields; 
if  subfields,  add  to  keyword 


ask  user  for  keyword  and  subfields 


if  keyword 


then  do 


generate  keyword; 

if  no  subfields  ask  user  for  subfields; 
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set  skip__keyword  switch  on; 

end; 

end ; 

end; 

if  subfields  in  keyword,  then  do; 
check  if  one  or  2  subfields; 
if  2  subfields  then  do; 

verify  subfield  before  co/nma  is  an  integer; 
verify  subfield  after  comma  is  an  integer; 

end ; 

else  if  only  one  subfield  verify  subfield  is  an  integ 
store  keyword  and  its  subfields  in  array; 

end ; 

if  user  wants  to  see  flow  of  program,  then  do; 
print  keywords  and  subfields; 

end ; 

if  user  wants  keywords  saved  in  a  file  then  do; 
write  keyword  and  subfields  to  outfile; 

end; 

end  cts__process__keywords ; 
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5.5  cts_process— commands 

Function;  call  cts— process^ commands  (old^path,  new_ path,  save^path, 
in_path,  outjpath,  number_of_keywords ,  keyword_table) 

Parameters: 


old_path 


new_path 


pathname  of  old  data_ file 

pathname  of  new  data  file  created  from  applying 
cts  to  old  data  file 


save_jpath  pathname  under  which  the  generated  PL/1  program 

is  saved 


in_path  pathname  of  file  containing  all  cts  arguments  and 

commands 


out_path  pathname  of  file  to  which  all  cts  arguments  and 

commands  are  written 


number_of_keywords  number  of  keywords  in  the  vectors  in  the  data 

file 


keyword^table  pointer  to  table  containing  keywords 
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begin  cts__process_commands ; 

find  out  if  classname  in  vectors; 

if  "yes"  then  turn  classnaroe  switch  on; 

find  out  if  vector  ID  in  vectors; 

if  "yes"  turn  vectorid  switch  on; 

get  both  process  and  default  working  directory; 

open  gfile; 

if  conversion  error  occurs  then  do; 
notify  user  of  conversion  error 
reset  onsource  value; 
reset  token  value; 
set  error_flag_q; 

end; 

open  input  file 

if  not  "-check",  then  generate  declarations  for  generated  PL/1  program 
get  first  command  line; 
if  input  line  =  "end"  then  do; 

notify  user  that  cts_process_commands  is  terminated; 
set  error__code; 
set  error_ flag; 

end; 

do  while  (‘even  number  of  quotes) ; 

see  if  even  number  of  quotes  in  command  line; 
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if  not,  then  call  error  routine; 

end; 

do  while  (“end  of  commands) ; 

call  advance  subroutine  to  get  token; 

depending  on  token,  generate  code  for  generated  PL/1  program; 
do  while  <token“="end") ; 

if  user  uses  edit  command  after  extract  command  then  do; 

notify  user  that  processing  of  commands  is  terminated; 
notify  user  of  no  execution  of  generated  program; 
set  noxqt  switch; 
set  error_code; 
set  token  *  "end"; 

end ; 

do  while  ( “cor rect_token) ; 

if  token  *  "change" I "insert" I "delete" | "move"  then  do; 
call  subroutine  to  process  the  command; 
set  correct_token  switch  to  on; 

end ; 

else  if  token  *  "extract"  then  do; 
if  not  "-check"  then  do; 

set  extract  switch  on; 
if  edit  commands  preceded,  then  do; 
generate  code  to  PL/1  program; 
turn  edit  switch  to  off; 

end; 
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end; 

call  extract  subroutine  to  process  command; 
set  correct_token  switch  to  on; 

end ; 

else  if  token  *  "end"  then  set  correct  token  switch  on; 


else  if  none  of  the  above  then  do 


call  error  subroutine 


f  error_flag  then  set  correct_token  switch  on 


f  an  error_ flag  then  token  *  "end 


end"  tnen  do 


if  token 


turn  comma nd_f lag  off 


call  advance  subroutine  for  new  token 


f  error  code  =  1  then  set  end  flat  on 


if  error_flag  then  set  token  ="stop 


if  token 


notify  user  that  command  processing  is  completed 


if  *extract_switch  and  not  "-check"  then  generate  code 


if  comma nd_f lag  on,  turn  it  off 
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if  error_flag  for  quitting  is  on,  then  do 
turn  error^flag  off; 


set  correct  token  to  off 


do  while  (“good— token) 


call  advance  for  new  token 


turn  token  switch  off  if  on 


then  turn  good_token  on 


if  token 


else  if  end  of  line  then  turn  good_token  on 


else  if  error^flag  for  ceasing  is  on  then  do; 

notify  user  that  processing  of  all  commands  is  terminated 
turn  end__flay  switch  on; 


if  token 


if  not  "-check"  and  error_ code  *  fi  then  do; 
close  file  of  generated  PL/1  program; 
open  file  of  generated  PL/1  program; 
open  new  file; 

on  endfile  condition  set  endfile  flag  on 
do  while  (“endfile  flag); 

read  line  of  generated  program  file 


a  certain  declaration  then 
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write  line  out  to  new  file 


write  more  code  to  new  file 


f  classname  switch  is  on,  turn  it  off 


close  both  generated  program  file  and  new  file; 
delete  the  generated  program,  file; 

rename  new  file  to  pathname  of  old  generated  program 


end  cts_process_commands 
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5.6  cts_ process_program 

Function:  call  cts_process_j?rogram  (program__name,  pll_args,  sv,  debug, 
error— code) 

Parameters: 


program_name  name  of  generated  PL/1  program  -  same  as  pathname 

specified  by  "-save  pathname" 

pll_ args  compilation  arguments  -  same  as  "argstring"  specified 

by  "-args  argstring" 

sv  severity  of  compilation  errors 

debug  same  as  log ic_ switch. debug  in  cts  -  indicates  user 

wants  to  see  the  flow  of  the  program 

error__code  code  which  indicates  if  an  error  hs  occurred  within 
cts^process^prog  ram 


Description: 


cts_ process_program  first  verifies  that  the  program  to  be  tested 
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exists  in  the  working  directory.  Then  if  the  program  does  exist,  the 
program  is  indented  and  compiled.  Any  compilation  errors  are  written 
to  an  error  file  and  once  compilation  is  completed,  the  error  file  is 
examined  to  determine  the  highest  severity  of  compilation  errors  (if 
any).  If  the  severity  of  errors  is  >2  then  an  error_code  is  set  =  2 

and  the  user  is  notified  of  the  occurrence  of  compilation  errors. 

begin  cts_ process_prog ram; 

verify  program  to  be  tested  is  not  "cts_process_prog ram.pll" ; 
if  it  is  then  do; 

notify  user  that  testing  of  "cts_process_prog ram"  is  not  permissible; 
set  error_code; 

end ; 

else  do; 

get  default  working  directory; 

verify  program  exists  in  working  directory; 

if  it  doesn't  then  do; 

notify  user  that  program  does  not  exist; 
set  error_code; 

end ; 

else  do; 

indent  generated  program; 

examine  pll_args  for  the  argument  "-sv"; 

if  found,  then  do; 

notify  user  that  it  has  been  ignored; 
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delete  it  from  the  pll_ args; 

end; 

compile  generated  program; 

on  end  of  file  then  set  eof_switch  on; 

open  error  file; 

read  line  of  error^file; 

do  while  (“eof^switch) ; 

determine  the  maximum  severity  of  errors  in  the  file; 

end; 

close  error  file; 
if  severity  >  2  then  do; 

notify  the  user  that  a  compilation  error  has  occurred; 
set  error_code; 

end; 


end; 

end ; 

end  ctsjprocess__program; 
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Function:  call  cha__nge  (in-line,  number_of_keywords ,  command  index 


char__pos,  keyword_table,  line_len) 


Parameters 


in  line 


input  command (s)  line 


number__of_keywords  number  of  keywords  in  each  vector  in  the  data 


command  index 


beginning  character  position  of  change  command 


in  input  command  line 


char_pos 


position  in  command  line  of  current  character 


under  consideration 


keyword_table 


pointer  to  table  containing  keywords  of  the 
vectors  in  the  data  file 


length  of  input  command (s)  line 
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Description: 

Cha_nge  parses  a  change  command  to  verify  that  the  syntax  of  the 
command  is  correct.  Once  the  parsing  is  done,  code  is  generated  for 
the  save  PL/I  program  if  the  user  has  not  specified  the  argument 
"-check"  when  giving  cts  arguments.  If  the  argument  "-check"  was 
given,  then  no  code  is  generated  for  the  PL/1  program 

tegir,  cha_nge; 

if  conversion  error  occurs  then  co; 

notify  user  of  conversion  error  and 

that  processing  of  current  command  is  terminated; 

reset  onsource  value; 

reset  token  value; 

set  ecror_flag_c; 

end; 

set  command  value  to  "change  "; 

call  advance  subroutine  for  next  token; 

do  while  (“okay) ; 

if  token  '=  "data"  I  "field"  then  do; 
if  token  =  "keyword"  then  do; 

add  token  to  command  value; 

call  advance  subroutine  for  next  token; 

if  token  “*  "("  then  call  error  subroutine; 

else  add  token  to  command  value; 

call  advance  subroutine  for  next  token; 
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if  token  '  =  integer  then  call  error  subroutine 
else  add  token  to  command  value; 
call  advance  subroutine  for  next  token; 
if  token  “=  ")"  then  call  error  subroutine; 
else  add  token  to  command  value; 

end ; 

else  loop  through  keyword  table  for  token  keyword; 
if  it  is,  add  token  to  command  value; 

end ; 

end ; 

else  do; 

if  token  =  "data"  then  add  token  to  command  value; 

else  if  token  =  "field"  then  do; 
add  token  to  command  value; 
call  advance  subroutine  for  next  token; 
if  token  “*  "("  then  call  error  subroutine; 
else  add  token  to  command  value; 
call  advance  subroutine  for  next  token; 
if  token  “=  integer  then  call  error  subroutine 
else  add  token  to  coir, mane  value; 
call  advance  subroutine  for  next  token; 
if  token  “*  ") "  then  call  error  subroutine; 
else  add  token  to  command  value; 

end ; 

end ; 
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end; 

call  advance  subroutine  for  next  token; 
if  first  character  in  token  *  integer  then  do; 

if  token  “■  integer  then  call  error  subroutine; 
else  add  token  to  command  value; 
call  advance  subroutine  for  next  token; 
if  token  =  then  do; 

add  token  to  command  value; 
call  advance  subroutine  for  next  token; 
if  token  “*  integer  then  call  error  subroutine; 
else  add  token  to  command  value; 

end ; 

else  set  switch  advance  subroutine_flag  off; 

end; 

if  advance  subroutine^ f lag  on  then  get  next  token; 
if  token  *»  3  relational  operator  then  call  error  subroutine; 
else  add  token  to  command  value; 
call  advance  subroutine  for  next  token; 
if  token  “=  a  double  quote  then  do; 
see  if  token  *  number; 


add  token  to  command  value 


else  conversion  condition  occurs 


if  token  '*  double  quote  then  call  error  subroutine 


•  » 


FINAL  REPORT 


REi'CTE  LATA  ENTRY 

SECTION  5  -  Cl’S  FUNCTIONAL  DESCRIPTION 


else  add  token  to  command  value 


call  advance  subroutine  for  next  token 


add  token  to  command  value 


call  advance  subroutine  for  next  token 


if  token  *  a  double  quote  then  call  error  subroutine 


else  add  token  to  command  value 


call  advance  subroutine  for  next  token 


to"  then  call  error  subroutine 


else  add  token  to  command  value 


call  advance  subroutine  for  next  token 


if  token  “=  a  double  quote  then  call  error  subroutine 


else  add  token  to  command  value 


call  advance  subroutine  for  next  token 


add  token  to  command  value; 


call  advance  subroutine  for  next  token 


if  token  *=  double  quote  then  call  error  subroutine 


else  add  token  to  command  value 


call  advance  subroutine  for  next  token 


if  token  “=  period  then  call  error  subroutine 


else  add  token  to  command  value 


if  out. switch  on  then  write  command  to  outfile 


if  "-check"  switch  off  then  generate  code  PL/1  program 
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5 ,  c  in_ sert 

Function;  call  in_sert  (in_line,  line_len,  command_index,  char_pos) 

Parameters : 

in_line  input  command (s)  line 

line_len  length  of  input  command (s)  line 

command__index  beginning  character  position  of  insert  command  in 

input  command (s)  line 

char_pos  position  in  command  line  of  current  character  under 

consideration 


Lescr iction: 

In_sert  parses  an  insert  command  to  verify  that  the  syntax  of  the 
insert  command  is  correct.  Cnee  the  parsing  is  complete,  code  is 
generated  for  the  saved  PL/1  program  if  the  user  has  not  given  the 
argument  "-check-.  Otherwise,  no  code  is  generated. 
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set  command  value  to  "insert 


call  advance  subroutine  to  get  next  token 


if  token 


field"  then  call  error  subroutine 


else  add  token  to  command  valu 


call  advance  subroutine  to  get  next  token 


if  token 


("  then  call  error  subroutine 


else  aad  token  to  command  value 


call  advance  subroutine  to  get  next  token 


if  token  =  integer  then  call  error  subroutine 


else  add  token  to  command  value 


call  advance  subroutine  to  get  next  token 


if  token 


then  call  error  subroutine 


else  add  token  to  command  value 


call  advance  subroutine  to  get  next  token 


if  token 


then  call  error  subroutine 


else  add  token  to  command  value 


call  advance  subroutine  to 


et  next  token 


if  token  *=  double  quote  then  call  error  subroutine 


else  add  token  to  command  value 


call  advance  subroutine  to  get  next  token 


add  token  to  command  value 


call  advance  subroutine  to  get  next  token; 
if  token  '*  double  quote  then  call  error  subroutine 
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else  add  token  to  command  value; 

call  advance  subroutine  to  get  next  token; 

if  token  “»  double  quote  then  call  error  subroutine; 

else  add  token  to  command  value; 

call  advance  subroutine  to  get  next  token; 

add  token  to  command  value; 

call  advance  subroutine  to  get  next  token; 

if  token  “=  double  quote  then  call  error  subroutine; 

else  add  token  to  command  value; 

call  advance  subroutine  to  get  next  token; 

if  token  “=  period  then  call  error  subroutine; 

else  add  token  to  command  value; 

if  out. switch  on  then  write  command  to  outfile; 

if  not  "-check"  then  generate  code  for  FL/1  program; 


end  in  sert 
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5.9  deplete 

Function :  call  de_lete  (in_line,  line_len,  comma nd_index,  char  pos) 
Parameters: 

in-line  input  command (s)  line 

line_len  length  of  input  command  (s)  line 

command_index  beginning  character  position  of  insert  command  in 

input  command (s)  line 

char_pos  position  in  command  line  of  current  character  unoer 

consideration 


Description: 

De_lete  parses  a  delete  command  to  verify  that  the  syntax  of  the 
delete  command  is  correct.  Once  the  parsing  is  complete,  code  is 
generated  for  the  saved  PL/1  program,  if  the  user  has  not  given  the 
argument  "-check".  Otherwise,  no  code  is  generated. 
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begin  deplete; 

set  command  value  to  "delete 

call  advance  subroutine  to  get  next  token; 

if  token  *■  "field"  then  call  error  subroutine; 

else  add  token  to  command  value; 

call  advance  subroutine  to  get  next  token; 

if  token  **  "("  then  call  error  subroutine; 

else  add  token  to  command  value; 

call  advance  subroutine  to  get  next  token; 

if  token  “=  integer  then  call  error  subroutine; 

else  add  token  to  command  value; 

call  advance  subroutine  to  get  next  token; 

if  token  “*  ")"  then  call  error  subroutine; 

else  add  token  to  command  value; 

call  advance  subroutine  to  get  next  token; 

if  token  **  "="  then  call  error  subroutine; 

else  add  token  to  command  value; 

call  advance  subroutine  to  get  next  token; 

if  token  “*  double  quote  then  call  error  subroutine; 

else  add  token  to  command  value; 

call  advance  subroutine  to  get  next  token; 

add  token  to  command  value; 

call  advance  subroutine  to  get  next  token; 

if  token  “*  double  quote  then  call  error  subroutine; 
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else  add  token  to  command  value; 

call  advance  subroutine  to  get  next  token; 

if  token  **  period  then  call  error  subroutine; 

else  add  token  to  command  value; 

if  out. switch  on  then  write  command  to  outfile; 

if  not  "-check"  then  generate  code  for  PL/1  program; 

end  de  lete; 
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5.1G  mo  ve 


Function:  call  mo^ve  (in_line.  line_len.  command_index,  char__pos) 


Parameters: 


in-line  input  command (s)  line 

line^len  length  of  input  command(s)  line 

command^ index  beginning  character  position  of  insert  command  in 

input  command (s)  line 

char_pos  position  in  command  line  of  current  character  under 

consideration 

Description: 

Mo_ve  parses  a  move  command  to  verify  that  the  syntax  of  the  move 
command  is  correct.  Cnee  the  parsing  is  complete,  code  is  generated 
for  the  saved  PL/1  program  if  the  user  has  not  given  the  argument 
"-check".  Otherwise,  no  code  is  generated. 

begin  mo^ve; 
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set  command  value  to  "move  "; 

call  advance  subroutine  to  get  next  token; 

if  token  *=  "field"  then  call  error  subroutine; 

else  add  token  to  command  value; 

call  advance  subroutine  to  get  next  token; 

if  token  *=  "{"  then  call  error  subroutine; 

else  add  token  to  command  value; 

call  advance  subroutine  to  get  next  token; 

if  token  “=  integer  then  call  error  subroutine; 

else  add  token  to  command  value; 

call  advance  subroutine  to  get  next  token; 

if  token  “*  ")"  then  call  error  subroutine; 

else  add  token  to  command  value; 

call  advance  subroutine  to  get  next  token; 

if  token  “=  "="  then  call  error  subroutine; 

else  add  token  to  command  value; 

call  advance  subroutine  to  get  next  token; 

if  token  “=  double  quote  then  call  error  subroutine; 

else  add  token  to  commiand  value; 

call  advance  subroutine  to  get  next  token; 

add  token  to  command  value; 

call  advance  subroutine  to  get  next  token; 

if  token  *«  double  quote  then  call  error  subroutine; 

else  add  token  to  command  value; 
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call  advance  subroutine  to  get  next  token; 

if  token  “=  "to"  then  call  error  subroutine; 

else  add  token  to  command  value; 

call  advance  subroutine  for  next  token; 

if  token  “=  "head"  I  "tail"  then  call  error  subroutine; 

else  add  token  to  command  value; 

call  advance  subroutine  for  next  token; 

if  token  “=  period  then  call  error  subroutine; 

else  add  token  to  command  value; 

if  out. switch  on  then  write  command  to  outfile; 

if  not  "-check"  then  generate  code  for  PL/1  program; 

end  mo  ve; 


SWHf* 


Function;  call  ext_ract  (in_line,  line_lcn,  nui:  fcer_cf_keywcru£ , 
comma nd_ind ex ,  char__pos#  keyword__table) 


input  command (s)  line 

line_len  length  of  input  cor; /rand (s)  line 

nunber_of_keywords  number  of  keywords  in  each  vector  in  the  data 

file 


Parameters: 


in  line 


command  index 


beginning  character  position  of  extract  command 


char_ pos 


in  input  command  line 


position  in  command  line  of  current  character 


under  consideration 


pointer  to  table  containing  keywords  o 


keyword_table 
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Description : 

Extract  parses  an  extract  command  to  verify  that  the  syntax  of 
the  convene,  is  correct.  Once  the  parsing  is  done,  code  is  generated 
for  the  save  PL/1  program  if  the  user  has  not  specified  the  argument 
"-check"  when  giving  cts  arguments.  If  the  argument  "-check"  was 
given,  then  no  code  is  generated  for  the  PL/1  program. 

begin  ext_ract; 

set  command  value  to  "extract  "; 
call  advance  subroutine  to  get  token; 
call  bool__terrr,j 

if  advance^ flag  on  then  call  advance  subroutine  for  next  token; 

else  add  token  to  command  value; 

call  advance  subroutine  to  get  token; 

if  token  “*  "class"  then  call  error  subroutine; 

else  add  token  to  command  value; 

call  advance  subroutine  to  get  token; 

if  token  then  call  error  subroutine; 

else  add  token  to  command  value; 

call  advance  subroutine  to  get  token; 

if  token  "*  douole  quote  then  call  error  subroutine; 

else  add  token  to  command  value; 

call  advance  subroutine  to  get  token; 
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add  token  to  command  value; 

call  advance  subroutine  to  get  token; 

if  token  *=  double  quote  then  call  error  subroutine; 

else  add  token  to  command  value; 

call  advance  subroutine  to  get  token; 

if  token  period  then  call  error  subroutine; 

else  add  token  to  command  value; 

if  out, switch  on  then  write  command  to  outfile; 

if  "-check"  switch  off  then  generate  code  FI/1  program; 

end  ext  ract; 
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5,12  bool_term 

Function :  call  bool_terrr  (in-line,  line_len,  number_of ^keywords, 
token,  token_index,  token_length,  char_pos,  keyword_table, 
advance_f lag ,  keyword__tatle_ code,  command) 


Parameters : 


in  line 


line  len 


n  urn  be  r__o  f  __k  ey  wo  r  d  s 


input  command (s)  line 

length  of  input  comn-and(s)  line 

number  of  keywords  in  each  vector  in  the  data 
file 


token 


token  index 


token_length 


char_ pos 


a  word  or  character  of  the  command  line 

beginning  character  position  of  token  in  command 
line 

length  of  token 

position  in  command  line  of  current  character 
under  consideration 


i 
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keyword_table  pointer  to  table  containing  keywords  of  the 

vectors  in  the  data  file 

advance_flag  determines  whether  or  not  to  call  the  subroutine 

"advance"  to  get  tne  next  token 


keyword_table_code 


command 


element  number  of  keyword  in  keyword  array 

input  line  specifying  the  type  of  editing  to  be 
done  on  the  data  file 


Description; 

Bool_term  is  a  recursive  module  which  continues  the  processing  of 
an  extract  command.  It  calls  the  module  bool_fac,  checks  for  the 
token  "I",  and  if  it  is  found  then  bool_terrr.  calls  itself.  If  it  is 
not  found  then  bool_term  ends. 

begin  bool__term; 

if  "-debug"  switch  on  then  print  subroutine  name; 
call  bool_fac; 

if  advance_f  lag  then  call  advance  subroutine  for  next  token; 
if  token  *  "I"  then  do; 
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add  token  to  coir.snand  value; 

call  advance  subroutine  to  get  token; 

call  booster  is; 

end; 

else  advance_flag  is  off; 
end  bool  term; 
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5.13  bool_fac 

Func t ion :  call  bool_fac  (in_lme,  lioe_len,  number  of_keywor Js , 

token,  token_incex,  token_length,  char_pos,  keywor d_tafcle , 
advance_f lag  ,  ,  keyword^ table_cooe,  command) 

Parameters: 


in  line 


input  comm  and  (s)  line 


line  len 


length  of  input  command (s)  line 


n um be r_o f_key words  number  of  keywords  in  each  vector  in  the  data 


token 


a  word  or  character  of  the  command  line 


token  index 


beginning  character  position  of  token  in  command 


token_length 


length  of  token 


char__  pos 


position  in  command  line  of  current  character 
under  consideration 
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keyword__table  pointer  to  table  containing  keywords  of  the 

vectors  in  the  data  file 

advar.ce_f  lag  determines  whether  or  not  to  call  the  module 

"advance"  to  get  the  next  token 

keyword_table_code  element  number  of  keyword  in  keyword  array 

command  input  line  specifying  the  type  of  editing  to  be 

done  on  the  data  file 

Description ; 

This  module  continues  processing  of  an  extract  command.  It  calls 
the  module  bool_cr i ,  then  calls  itself  if  the  token  is  found, 

otherwise  it  exits. 


begin  bool__ fac; 

if  "-debug"  switch  on  then  print  subroutine  name; 
call  bool__pri; 


if  sdvance_f lag  then  call  advance  subroutine  for  next  token; 


1 

* 


if  token 


&"  then  do 


add  token  to  command  value 


call  advance  subroutine  to  get  token 


pNmimim.1  Mmw  i  m 
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end  bool  fac 
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5.14  bool^pri 

Function:  call  bool— pri  (in-line,  line_len,  nurrber_of__keywords, 

token,  token_index,  token_length ,  char^pos,  keywor datable, 
advance__f lag ,  keyward__table__code,  command) 

Par axeter s : 


in  line 


line  len 


nurber_of_key words 


token 


token  index 


token— length 


char_pos 


keyv/ord_table 


input  command (s)  line 

length  of  input  command (s)  line 

number  of  vector  keywords  in  the  data  file 

a  word  or  character  of  the  command  line 

beginning  character  position  of  token  in  command 
line 

length  of  token 

position  in  command  line  of  current  character 

pointer  to  table  of  vector  keywords  in  the  data 
file 
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advance^ flag  determines  whether  or  not  to  call  the  module 

"advance"  to  get  the  next  token 

key*rc>rd_table_ code  element  number  of  keyword  in  keyword  array 

command  input  line  specifying  the  type  of  editing  to  be 

done  on  the  data  file 


Description: 

Bool_pri  continues  processing  an  extract  command.  It  calls 
advance  for  tokens  of  the  command  line,  and  verifies  that  they  are  in 
the  correct  format. 

begin  bool_ pri; 

if  debug"  then  print  subroutine  name; 
if  conversion  error  then  do; 

notify  user  of  conversion  error  and 

that  processing  of  current  command  is  terminated; 

reset  onsource  value; 


reset  token; 
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end; 

if  token*"*"  then  do; 

add  token  to  command  value; 

call  advance  subroutine  for  next  token; 

end; 

if  token*" ("  then  do; 

add  token  to  command  value; 

call  advance  subroutine  for  next  token; 

call  bool_term; 

if  advance^ flag  call  advance  subroutine  for  next  token; 
if  token**")"  then  call  error  subroutine; 
else  add  token  to  command  value; 

end; 

else  do; 

do  while  (“okay) ; 

if  token  “*  "data"  I  "field*  then  do; 
if  token  *  "keyword"  then  do; 

add  token  to  command  value; 

call  advance  subroutine  for  next  token; 

if  token  *■  "("  then  call  error  subroutine; 

else  add  token  to  command  value; 

call  advance  subroutine  for  next  token; 

if  token  “*  integer  then  call  error  subroutine; 

else  add  token  to  command  value; 

call  advance  subroutine  for  next  token; 
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if  token  **  ") "  then  call  error  subroutine; 
else  add  token  to  command  value; 

end; 

else  loop  through  keyword  table  for  token  keyword; 
if  it  is,  add  token  to  command  value; 

end; 

end; 

else  do; 

if  token  =  "data"  then  add  token  to  command  value; 

else  if  token  =  "field"  then  do; 
add  token  to  command  value; 
call  advance  subroutine  for  next  token; 
if  token  “=  then  call  error  subroutine; 
else  add  token  to  command  value; 
call  advance  subroutine  for  next  token; 
if  token  “*  integer  then  call  error  subroutine 
else  add  token  to  command  value; 
call  advance  subroutine  for  next  token; 
if  token  “*  ") "  then  call  error  subroutine; 
else  add  token  to  command  value; 

end; 

end ; 

end; 

add  token  to  command  value; 

if  first  character  in  token  *  integer  then  Jo; 
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call  advance  subroutine  for  next  token; 
if  token  integer  then  call  error  subroutine; 
else  add  token  to  command  value; 
call  advance  subroutine  for  next  token; 
if  token  =  then  do; 

add  token  to  command  value; 
call  advance  subroutine  for  next  token; 
if  token  “*  integer  then  call  error  subroutine; 
else  add  token  to  command  value; 

end ; 

else  set  switch  advance  subroutine_f lag  off; 

if  advance  subroutine_f lag  on  then  get  next  token; 

if  token  “*  a  relational  operator  then  call  error  subroutine; 

else  add  token  to  command  value; 

call  advance  subroutine  for  next  token; 

if  token  “=  a  double  quote  then  do; 

1185a. in  -5 
end; 

see  if  token  =  number; 

if  it  does,  add  token  to  command  value; 

else  conversion  condition  occurs; 

end; 

else  do; 

if  token  **  double  quote  then  call  error  subroutine; 
else  add  token  to  command  value; 
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call  advance  subroutine  for  next  token; 

add  token  to  command  value; 

call  advance  subroutine  for  next  token; 

if  token  “=  a  double  quote  then  call  error  subroutine; 

else  add  token  to  command  value; 

end ; 

end; 

end; 

end  bool_pri; 
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5.15  get—char 

Function;  call  get__char  (Char_ char,  Char.jpos,  Char__index,  to_ken, 
in-line,  line_len) 

Parameters: 

Char_char 

Char_pos 

Char_index 

to_ken 

in-line 

line_len 

Description; 

Get_char  is  a  module  which  returns  the  individual  characters  from 
the  input  command  line  to  the  module  advance. 


individual  character  from  input  command  line 


position  of  character  in  input  line 


index  of  character  in  table 


a  word  or  character  of  the  input  line 


input  command (s)  line 


length  of  input  command (s)  line 
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begin  ;et_char; 

if  "-debug"  then  print  subroutine  name; 
if  end  of  file  occurs  do; 
set  in_eof  switch  on; 
set  command_f lag  switch  on; 

end ; 

if  token  “="end"  &  Char_pos=l ine_len  then  turn  connand_f lag  or.; 

if  comma nd_f lag  on  then  return; 

increment  Cnar_pos  by  1; 

get  Character; 

get  Char_index; 

end  get_char; 


5-55 


FINAL  Rf. COPT 


REf'CTt  OATA  ENTRY 

SECTION  5  -  CTC  FUNCTIONAL  CESCRIPTICN 


section 

Function:  call  . 
char__pos,  token 

Parameter s: 

to_ken 

len_g  th 

place 

in__l  ine 

1 ine_len 

Char_pos 

token  switch 


Lescr iction: 


dvance  (to_ken,  lenjgth,  place,  in-line,  line_len, 
switch) 


word  or  character  of  input  command  line 

length  of  token 

beginning  character  position  of  token  in  input 
command (s)  line. 

input  command (s)  line 

length  of  input  command (s) 

position  of  character  in  input  line 

switch  indicating  a  string  is  to  be  enclosed  within 
quotes 
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This  module  returns  a  token,  its  length,  and  its  position  in  the 
input  line  to  other  parsing  modules. 


begin  advance; 

if  "-debug"  then  print  subroutine  name; 
if  token_switch  on  do; 
reset  to_ ken; 
reset  place  and  lenjgth; 
reset  tokenl; 
reset  token2; 

if  tokenl  is  a  null  string  then  turn  token_switch  off; 

end; 

do  while  (need__char)  ; 

call  get_char  for  next  character; 

if  command__flag  switch  on  then  turn  need_char  off; 
if  perioa_flag  &  char  then  do; 

reset  to_ken; 
reset  len_gth  and  place; 
turn  need— char  off; 

end; 

else  if  char'3"  "  then  do; 

if  char  is  a  letter  then  do; 
do  while  (alpba_char) , 

add  char  to  to_ken  value; 
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reset  len_gth  and  place; 

call  get_ char  for  next  character; 

if  comma nd_f lag  on  then  turn  alpha_ char  switch  off 
if  char  is  not  a  letter  then  turn  alpha_char  off; 

end; 

if  command^ f lag  on  then  turn  need__char  off; 
else  if  char®"  "  then  turn  need_char  off; 
else  do; 

decrement  char_pos  by  1; 
turn  need_char  off; 
reset  place; 

end; 

end; 

else  if  char “operators  then  do; 

add  character  to  to_ken  value; 
reset  place  and  lenjgth; 
call  get^char  for  next  character; 
if  char=operators  then  do; 

add  character  to  to_ken  value; 
reset  lenjgth  and  place; 

end ; 

else  do; 

decrement  char_ pos  by  1; 
reset  place; 
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turn  need_ char  off; 

end; 

else  if  char=caret  then  do; 

add  char  to  to_ken  value; 

reset  len_gth  and  place;call  get_char  for  next  character; 
if  comma nd_f lag  then  turn  need_char  off; 
if  char=operators  then  do; 

add  char  to  to_ ken  value; 
reset  place  and  len_gth; 
call  get_char  for  next  char; 
if  char=operations  then  do; 

add  char  to  to_ken  value; 
reset  len_gth  and  place; 

end; 

else  do; 

decrement  char_pos  by  1; 
reset  place; 

end; 

turn  need_char  off; 

end; 

else  do; 

decrement  char_pos  by  1; 

reset  place; 

turn  need_ char  off; 

end; 
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else  if  char*paren  then  do 


add  chat  to  to  ken  value 


turn  need  chat  off 


else  if  char*corama  then  do 


add  char  to  to  ken  value 


turn  need  chat  off 


else  if  char*double  quote  then  do 


add  char  to  to  ken  value 


if  no  string  switch  on  then  do 


turn  token  switch  off 


turn  need  char  off 


do  while  (more) 


call  get_ char  for  next  char; 
if  command^flag  on  turn  need  char  off; 


else  add  char  to  to  ken  value; 


if  char»double  quote  then  do; 
reset  tokenl; 
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reset  token2; 

turn  more  off; 

turn  token_switch  cn; 

end; 

end ; 

if  more  is  off  then  turn  neea_chat  off; 

end ; 

end ; 

else  if  char=signs  or  digits  then  do; 
do  while  (need_number ) ; 

add  char  to  to_ken  value; 

reset  len_gth  and  place; 

call  get^char  for  next  char; 

if  command_f lag  then  turn  need— number  off; 

if  char  '“digits  then  do; 

if  char  '*"e"  then  do; 

if  char  '“signs  then  do;- 

if  char  '“period  then  do; 

add  char  to  to_ken  value; 
call  get_char  for  next  char; 
if  cornmand_f lag  on 

then  turn  need_n;jmber  off 
in  -5 

if  char  '“digits  then  do; 
reset  to  ken. 
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len_gth,  and  place; 
turn  need_nurober  off; 

end; 

else  do; 

reset  to_ken, 
length,  and  place; 

end; 

end; 

else  if  char*"  "  then  do; 

decrement  char_pos  by  1; 
turn  need_number  off; 

end; 

else  do; 

decrement  char_pos  by  1; 

reset  place; 

turn  need_number  off; 

end; 

end; 

end; 

end; 

end; 

if  need._nuir.ber  is  off  then  turn  need_char  off; 

end; 

else  if  char*period  then  do; 
add  char  to  to_ken  value; 
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call  get—char  for  next  char 


if  command_flag  on  then  turn  need_char  off 


if  char  “*digits  then  do 


add  char  to  to  ken  value 


else  if  char*specials  then  do 


add  char  to  to  ken  value 


else  if  char*logics  then  do 


add  char  to  to  ken  value 


turn  need  char  off 


else  call  error  subroutine; 
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end  advance; 
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5.17  error 

Description: 

This  module  notifies  the  user  of  his  errors  and  makes  or  obtains 
corrections.  It  is  only  in  this  module  that  the  user  can  use  "cease" 
or  "quit"  in  terminating  commands. 

Usage: 

call  error  (error_code,  token,  token_index,  tokenjlength,  in_line, 
char __pos,  token_switch,  line_len) 

Arguments: 

error_code  number  of  error  message  in  error  table 

token  word  or  character  from  input  command(s)  line 


token  index 


beginning  character  position  of  token  in  input 
command (s)  line 


token  length  length  of  token 

; 

in-line  input  line 

I 
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char_pos 


token  switch 


line  len 


position  of  character  in  input  command(s)  line 

switch  indicating  that  a  string  is  to  be  enclosed 
within  quotes 

length  of  input  command (s)  line 


Performance: 

begin  error; 

if  "-debug"  then  print  subroutine  name; 
print  command  line; 

if  error  that  requires  a  reply  then  do; 
if  "-noquery"  then  do; 

print  error  message; 

notify  user  that  processing  of  current  command  is  terminated 
and  processing  of  next  command  will  begin; 
turn  is_ correct  and  error— flag_q  on; 

end; 

else  call  cts_query_ user  to  print  errorjmessage  and  get  reply; 

end; 

else  if  error  not  requiring  a  reply  then  do; 

print  error  message;  g 
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set  input  line  to  null  string; 

end; 

do  while  (~is_cor rect) ; 

if  input  line  *=  null  string  then  do; 

if  input  line  *  "cease"  or  "quit"  then  do; 
turn  appropriate  error_ flag  on; 
turn  is_correct  flag  on; 

end; 

else  for  error_code  *  1,6,8,  or  12  then  do; 
add  reply  to  command  line; 

reset  line_len, token, token^length, and  char_pos; 

end ; 

else  for  error_code  *  13  do; 

add  reply  to  command  line; 
reset  lineal en  and  char_pos; 

end; 

else  for  error_code  *  14  the  do; 
set  command  line  *  reply; 
reset  line_ len; 
turn  is_correct  switch  on; 

end; 

else  for  error_ code  *  15  do; 

add  reply  to  command  line; 

reset  token, token__length , and  char_pos; 

end; 
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print  new  command  line; 
do  while  (“okay) ; 

ask  user  i€  okay; 

if  yes  then  turn  okay_switch  on 

else  if  no  then  do; 


call  cts_query_user  for  "cease"  or  "quit 
turn  okay_switch  on; 


if  input  line  *  "yes"  then  turn  is^correct  switch  on 


if  error_code  *  2,3,4,5,7,9,10,11,  or  13  then  do 


set  token  to  error-supplied  correction; 
reset  token__length,line_len, in-line, and  char_pos; 
if  error— code  ■  2  or  9  then  reset  token_index; 
if  error_code  ■  2  then  turn  period_flag  off; 
if  error_code  »  3, 4, or  9  then  turn  token_switch  off; 


if  not  "-noquery"  then  do; 
print  new  command  line; 
ask  user  if  okay; 

if  yes  then  turn  is_correct  switch  on; 
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or.  tnen  return 


determine  len^tr.  of  old  cor.iranJ  line  and  corrected  coti'ir.and  line 


f  corrected  line  shorter,  then  pad  with  blanks 
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5,18  cts— query^user 

Description: 

This  module  is  used  instead  of  MULT ICS  comma nd_query—  to  remove 
system  dependence.  It  displays  a  question  or  statement  to  the  user 
and  retrieves  any  reply. 

Usage: 

call  cts_query__user  (query,  echo,  noquery) 

Arguments: 

query  question  or  statement  to  be  displayed  to  user 


switch  determining  whethere  or  not  to  echo  the  input 


line  back  to  the  terminal  -  same  as  "-echo"  argument 


switch  indicating  if  in  batch  or  interactive  node 


noquery 


same  as  "-noguery"  argument 


Performance: 
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begin  cts_query_user ; 

if  not  "-noquery"  then  print  question  or  statement; 
get  reply; 

if  "-echo"  then  print  reply; 
end  cts_query_ user ; 
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